var a,i: integer;
begin
a:=0;
while (a<=35 ) do begin
a:=a+1;
if (a mod 5 = 0) then
writeln(a);
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Выведите на экран все цифры делящиеся на 5 без остатка в диапазоне от 1 до 35(включительно (Используйте цикл while, continue)
var a,i: integer;
begin
a:=0;
while (a<=35 ) do begin
a:=a+1;
if (a mod 5 = 0) then
writeln(a);
end;
end.