На Паскале!!! Безотлагательно!! Написать программку, которая в последовательности естественных чисел
На Паскале!!! Безотлагательно!! Написать программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и заканчивающихся на 2. Программка получает на вход естественные числа, количество введённых чисел безызвестно,последовательность чисел кончается числом(0-признак окончания ввода, не заходит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число:сумму всех чисел кратных 6 и заканчивающихся на 2. Также надобно составить блок-схему, привести контрольные примеры, написать порядок исполненья работы. Нужен четкий ответ и правильный.
Задать свой вопрос
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if nlt;gt;0 then
if (n mod 6=0) and (n mod 10=2) then s:=s+n
until n=0;
Writeln(s)
end.
Пример
16
42
18
132
94
18
0
174
Не считая этого, для чего-то требуют блок-схему - приведена во вложении, выполнена по ГОСТ 19.701-90 (ISO 5807-85).
2. А вот так эту задачку можно решить в современном Паскале
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программка не работает, обновите версию!
begin
ReadSeqIntegerWhile(t-gt;tlt;gt;0)
.Where(t-gt;(t mod 6=0) and (t mod 10=2)).Sum.Println
end.
И блок-схема здесь вообщем не нужна: она ничего не даст.
Сопоставленье очевидно не в пользу школьного "образования" - учить, как выполнять работу 20 минут вместо 2-ух.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.