Помогите Составить программу нахождения суммы всех двухзначных чисел которые делятся на 5

Question

Таня

10 января, 09:25

+1

Ответы (1)

Знаете ответ на вопрос?

Авдоша · Answer 1

Вроде бы вот так

program nomer;

var x, s, i:integer;

begin

for x:=10 to 99 do

begin

if (x mod 5) = 0 then s:=s+x;

end;

writeln (s) ;

end.