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

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

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

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-16T20:40:04+04:00

//первая программа

 

var
  n, i, s:integer;
begin
  write('n = ');
  readln(n);
  S:=0;
  i := 1;
  while i <= n do
  begin
    s := s + i;
    i := i + 2;
  end;
 writeln('Summ = ',S);
end.

 

 

//вторая программа

 

var
  n, i, s:integer;
begin
  write('n = ');
  readln(n);
  S:=0;
  i := 3;
  while i <= n do
  begin
    s := s + i;
    i := i + 3;
  end;
  writeln('Summ = ',S);
end.

 

//третья программа

var
  n, i, s:integer;
begin
  write('n = ');
  readln(n);
  for i := 1 to n do
    writeln(i:10, i * i :10, i * i * i:10);
end.