1) вывести все натуральные числа от 100 до 200 кратные 5

2) подсчитать общее кол-во делителей числа 100

1

var i:integer;

begin

for i:=100 to 200 do

if i mod 5=0 then write (i,' ')

end.

2

var i, n:integer;

begin

for i:=1 to 100 do

if 100 mod i=0 then n:=n+1;

write ('Общее количество делителей 100, включая 1 и само число: ', n)

end.

Если 1 и само число 100 не учитывать, то третья строка сверху должна иметь вид:

for i:=2 to 99 do