Нужна ваша Побудувати алгоритм з розгалуженням Может 1 только Только решить
270
320
Ответы на вопрос:
Var m: real; k: integer; begin m: =100; k: =0; while m> 80 do begin k: =k+1; m: =m*0.99; end; writeln('k = ',k); end. результат: k = 23
Популярно: Информатика
-
gamer310603.07.2022 22:25
-
cehrjdfyflz160318.07.2022 14:27
-
islamovaemilia123.12.2022 21:11
-
Гуманитарий4106.02.2023 21:01
-
Августина151128.03.2023 04:43
-
Denis890301.10.2021 17:30
-
герман7804.10.2021 13:22
-
Omursinovaa0322.03.2023 02:16
-
Khayalnuriev200528.11.2022 09:48
-
Hhjkklknbggfddxxg30.03.2020 03:36