Выведите все двузначные числа, которые кратны 5 на языке Паскаль через цикл Repeat или While

Как в помощь:

условие n<100, т. е. n:=10

Question

Агафангел

3 ноября, 15:03

+5

Ответы (1)

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

Лина · Answer 1

Program kratno;

var n: integer;

begin

n:=10;

while n<100 do begin

if n mod 5 = 0 then

writeln (n) ;

n:=n+1;

end;

end.

Выведите все двузначные числа, которые кратны 5 на языке Паскаль через цикл Repeat или WhileКак в помощь:условие n<100, т. е. n:=10