1) Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.

2) Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.

3) Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6

4) Найти произведение нечетных чисел от 10 до 50, кратных 13

кто может сделать в Паскале или просто решить?

Program task1;

var i : integer;

function kub (x : integer) : integer; var k : integer; begin k: = x*x*x; kub: = k; end; begin

for i: = 9 downto 1 do if i mod 2 = 1 then write (sqr (i),' '); writeln; for i: = 9 downto 1 do if i mod 2 = 1 then write (kub (i),' ');

end.

program task2;

var i, sum : integer;

begin

sum: = 0; for i: = 1 to 150 do if (i mod 5 = 0) or (i mod 7 = 0) then sum: = sum + i; writeln (sum);

end.

program task3;

var i, sum : integer;

begin

sum: = 0; for i: = 10 to 50 do if (i mod 4 = 0) and (i mod 6 0) then sum: = sum + i; writeln (sum);

end.

program task4;

var i, p : integer;

begin

p: = 1; for i: = 10 to 50 do if (i mod 2 = 1) and (i mod 13 = 0) then p: = p*i; writeln (i);

end.