https://yadi.sk/i/YVBNn3JZ4OSSmg Конспект кратко. - id1238098920230213 от max20170102 13.02.2023 15:33

Question

Информатика: https://yadi.sk/i/YVBNn3JZ4OSSmg Конспект кратко.

max20170102 · 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....

https://yadi.sk/i/YVBNn3JZ4OSSmgКонспект кратко.

MOGZ ответил

https://yadi.sk/i/YVBNn3JZ4OSSmg

Конспект кратко.