Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.
Пример работы программы:
Срочно пожалуйста
Информатика
Пример работы программы:
Срочно пожалуйста
Информатика
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
var i, k, sum: Integer;
begin
sum:=0;
for i := 1 to 100 do
begin
readln(k);
if k = 0 then
begin
break;
end;
if k > 300 then
begin
writeln('False');
end;
if (k mod 6 = 0) and (k mod 10 = 6) then
begin
sum:=sum+k;
end;
end;
writeln(sum);
end.