Question

1)Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
 кто может сделать в Паскале или просто решить?

Answer 1

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.

Answer 2

Спасибо большое)