Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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

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

Ответ оставил Гость

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

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.