Ответы на вопрос:
Program p1; var x,y: real; k: integer; begin write('цена товара = '); readln(x); y: =x; k: =0; while y< 1.5*x do begin y: =y*1.01; k: =k+1; end; writeln('k = ',k); end.
Популярно: Информатика
-
Почему короткие вопросы получаются длинными в двоичном коде...
Влад111111111111112123.11.2021 20:05 -
Решите Информатика 8 класс...
Skrilleax9510.03.2023 22:07 -
Описать каждую кнопку в блоке, используя заготовку во вложенном...
какулькаТВ29.05.2022 14:10 -
Сделайте трассировку для 2 и 3 конструкции из прикреплённого файла...
anasstasissya25.03.2023 16:43 -
Закрасить вертикальный коридор неизвестной длины робот где-то в...
kamilla19507.09.2020 13:37 -
Определите глубину цвета графического изображения, если при размере...
Гуманитарий77720.09.2021 09:13 -
в трапеции заданы стороны a,b,c,d. найти и вывести на экран...
Fiza1517.05.2023 15:39 -
Подчеркни лишнее и поясни. береста папирус желудь пергамент....
WirexiaEnderman02.03.2023 12:54 -
Написать программу на языке c#...
kasimova2000109.02.2020 07:56 -
Известна заработная плата каждого из 15 работников фирмы за месяц....
Audana0008.03.2023 14:32