1) Составить программу нахождения суммы квадратов чисел от 25 до 125. 2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0) 3) найти сумму всех целых нечетных чисел меньших 100 4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы. 5) Найти все натуральный делители натурального числа n

program zz1;

var i, s, j, a, b:integer;

begin

/ / 1)

for i:=25 to 125 do

s:=s + sqr (i);

writeln (' сумма квадратов = ', s);

/ / 2)

s:=0;

for i:=10 to 99 do

for j: = 10 to 99 do

begin

s:=sqr (j) + sqr (i);

if s mod 13 = 0 then writeln (' найденные числа = ', i,' ', j);

end;

/ / 3)

s:=0;

for i:=1 to 100 do

if i mod 2 = 1 then s:=s + i;

writeln (' сумма нечетных чисел = ', s);

/ / 4)

s:=0;

write (' введите первое число ');

read (a);

write (' введите второе число ');

read (b);

for i:=a to b do

if i mod 4 = 0 then s:=s + i;

writeln (' сумма чисел от ', a,' до ', b,' = ', s);

/ / 5)

writeln (' введите число '); / / вводим с клавиатуры число

read (a);

for i:=1 to a do / / организуем цикл

begin

if a mod i = 0 then write (' делитель = ', i);

end;

end.