Укажите, сколько раз выполнится тело цикла с заданным заголовком:
FOR i := 5 DOWNTO 1 DO
179
201
Ответы на вопрос:
Var a,b,c,e: integer; begin read(a,b); readln(c); a: =a*c; b: =b*c; e: =b div 100; b: =b mod 100; a: =a+e; writeln(a,' ',b) end.
Популярно: Информатика
-
nikolasosadchey15.10.2021 23:51
-
Zalina4272Bdjdkxc21.06.2020 03:22
-
dawesmm18.02.2021 22:26
-
galina06087617.03.2023 17:20
-
Батыр10008.02.2022 02:55
-
vereshchako04101.01.2021 22:03
-
rasukka03.03.2022 00:33
-
tjumentseva2003116.10.2020 01:46
-
MrLinar04.10.2021 19:20
-
Phoenix51122.04.2020 10:31