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

Question

Таюта

5 сентября, 21:32

+3

Ответы (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.