Question

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

Срочно пожалуйста
Информатика

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.