Question

ПОМОГИТЕ!!!!Составить программы для цикла for А) Вывести число от 1 до 100, кратное 10 Б) Вывести число от 1 до 50, кратное 7

Answer 1

a)
program ryazantsev;
var i: integer;
begin
for i:=1 to 100 do if i mod 10 = 0 then writeln(i)
end.
b)
program ryazantsev;
var i: integer;
begin
for i:=1 to 50 do if i mod 7 = 0 then writeln(i)
end.