Это паскаль! Плиз срочно нужно! 1)Найдите сумму натуральных нечетных чисел не...

Question

Это паскаль! Плиз срочно нужно!

1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!

2)Вычислите произведение натуральных чисел кратных трем и не превышающих n!!! 3)Выведите на экран в трех столбцах список чисел от 1 до N, их квадратов и кубов.Число N вводите с клавиатуры!

Answer 1

1)

var sum, number, n: integer;
begin
  sum := 0;
  number := 1;
  write('Введите n: ');
  readln(n);
  while (number <= n) do<br>  begin
    sum := sum + number;
    number := number + 2;
  end;
  write('Сумма равна ', sum);
end.

2)

var prod, number, n: integer;
begin
  prod:= 1;
  number := 3;
  write('Введите n: ');
  readln(n);
  while (number <= n) do<br>  begin
    prod := prod * number;
    number := number + 3;
  end;
  write('Произведение равно ', prod);
end.

3)

var number, n: integer;
begin
  number := 1;
  write('Введите n: ');
  readln(n);
  writeln('Таблица:');
  while (number <= n) do<br>  begin
    writeln(number:5, number*number:5, number*number*number:5);
    number := number + 1;
  end;
end.