Ответы на вопрос:
Var x,y: integer; begin x: =25; y: =-20; while x*y< 0 do begin x: =x-5; y: =y+2 end; writeln('x=',x,' y=',y); end. // x = 0 // y = -10
Популярно: Информатика
-
marinavn200802.05.2023 10:02
-
Kata8i7786610.04.2020 11:32
-
Чай2424.05.2022 09:18
-
13018120.08.2021 12:46
-
marsimkozyrev25.05.2023 18:21
-
катрин011115.05.2022 12:48
-
taganrog12312.06.2020 06:57
-
ПОРНОООСЕКС26.08.2020 01:28
-
Rokwe30.09.2022 00:32
-
COFFI22813.05.2021 00:59