Сделайте 3 задание в опен оффисе

Question

Информатика: Сделайте 3 задание в опен оффисе

nikolottorres · Accepted Answer

Var     N, s, i: Integer;     s1: real; begin     readln(N); {общий ввод для всех задач}          if N 0 then         writeln( Задача 1. N= , 0)     else writeln( Задача 1. N= , N + 4);          s := 0;     for i := 1 to n do         s := s + i;     writeln( Задача 7. 1+2+3+…+N= , s);          write( Задача 9. Последовательность от N до 1 = );     for i := n downto 1 do         write(i, );     writeln();          s1 := 0;     for i := 1 to n do         s1 := s1 + i / 10;     writeln( Задача 12....

MOGZ ответил