Question

Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех двузначных чисел,кратных 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-признак окончания ввода, не входит в последовательность.Программа должна вывести одно число: сумму всех двузначных чисел, кратных 8.

Answer 1

Program hhh54;
var i,x,s:longint;
begin
  read (x);
  s:=0;
  while x <> 0 do
    begin
      if (x>9) and (x<100) and (x mod 8 = 0) then s:=s+x;
      read (x);
    end;
  write (s);
end.