Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех двузначных чисел,кратных 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-признак окончания ввода, не входит в последовательность.Программа должна вывести одно число: сумму всех двузначных чисел, кратных 8.
Нет комментариев
Ответы
Гость 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.
Нет комментариев
Похожие вопросы
Информатика
Информатика срочно помогите решить...
Информатика
Алгоритм написания слова Маша в чертёжнике...
Информатика
Помогите кто может. 3 задачи....
Список предметов
