Напишите программу, которая в последовательности натуральных чисел определяет сумму всех...

Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6. Пример работы программы: Срочно пожалуйста Информатика

---

Comments

Окей, 10 минут

Answer 1

Ответ:

Объяснение:

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.