Срочно, пожалуйста!!! В PascalABC составьте программу: в интервале от 0 до 100 вывести **...

Question

Срочно, пожалуйста!!!
В PascalABC составьте программу:
в интервале от 0 до 100 вывести на экран числа, которые делятся на введенное с клавиатуры число.
4)23
5)23 46 69 92

4)3
5)3 6 9 12 25 18... 99

Answer 1

Var
chislo:integer;
i:integer;

begin
writeln('Введите число');
read(chislo);
writeln('На ',chislo,' делятся:');
for i:=0 to 100 do
begin
if i mod chislo = 0 then
writeln(i);
end;
end.