Ответы
Ответ:
на Free Pascal
Объяснение:
var
i, k : integer;
begin
writeln('Числа кратные 13 и < 100 : ');
for i := 1 to 100 do
if i mod 13 = 0 then
write(i, ' ');
writeln;
writeln('15 Чисел кратных 19 и > 100 : ');
i := 100;
k := 0;
while k < 15 do begin
if i mod 19 = 0 then begin
write(i, ' ');
inc(k);
end;
inc(i);
end;
writeln;
writeln('20 Чисел кратных 13 или 17 и > 500 : ');
i := 500;
k := 0;
while k < 20 do begin
if (i mod 13 = 0) or (i mod 17 = 0) then begin
write(i, ' ');
inc(k)
end;
inc(i);
end;
writeln;
writeln('10 Чисел оканчивающихся на 7 кратных 9 и > 100 : ');
i := 100;
k := 0;
while k < 10 do begin
if (i mod 10 = 7) and (i mod 9 = 0) then begin
write(i, ' ');
inc(k)
end;
inc(i);
end;
end.
