Пересадка растений. Известно, что если растения за 3 дня не вырастают до высоты 10 см, то они не дают - id1693335120221008 от 4549bk 08.10.2022 00:29

Question

Информатика: Пересадка растений. Известно, что если растения за 3 дня не вырастают до высоты 10 см, то они не дают плоды. Пересадите растения, рост которых составляет менее 10 см. Создайте список из 10 чисел от 1 до 20, замените значения, которые меньше 10 на 0. Воспользуйтесь циклом.​

4549bk · 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 ответил