Напишите программу, которая в последовательности естественных чисел определяет сумму всех чисел,
Напишите программку, которая в последовательности естественных чисел определяет сумму всех чисел, кратных 6 и заканчивающихся на 4. Программа получает на вход естественные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел кончается числом 0 (0 признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 1000. Введённые числа не превосходят 30 000. Программка обязана вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4
Задать свой вопрос
program aver;
var s, n, k :integer;
begin
n:= 1; // значение числа для входа в цикл while
s:= 0; // сумма чисел, удовлетворяющих условию
k:= 0; //счетчик чисел
writeln (Введите серию чисел,);
writeln(заканчивая ввод каждого числа нажатием на Enter);
while (n lt;gt; 0) and (k lt; 1000) do
begin
read(n);
if n gt; 30000 then
begin
writeln(Число не должно быть больше 30000);
read(n);
end;
if (n mod 10 = 4) and (n mod 6 = 0) then s:= s + n;
k:= k + 1;
end;
writeln(сумма = , s)
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
География.
Литература.
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.