Ответы на вопрос:
Var m1,m2,st,i: integer; begin m1: =0; m2: =0; st: =1; for i: =1 to 30 do begin m1: =m1+100; m2: =m2+st; st: =st*2; end; writeln('богатый: ',m1,' бедный: ',m2); if m1< m2 then writeln('выиграл богатый') else writeln('выиграл бедный'); end. результат: богатый: 3000 бедный: 1073741823 выиграл богатый
Популярно: Информатика
-
sergeyblack1122.02.2022 11:38
-
Vanomasssss01.01.2022 10:54
-
1015418.07.2020 03:33
-
frost09042004ozo97y15.02.2020 09:30
-
лехенский03.02.2021 02:59
-
SpottedJay24.04.2021 23:28
-
dimakrochak18.08.2022 21:31
-
Yangelskiy08.06.2022 02:28
-
ЕlyaBr07.06.2021 19:12
-
Фари22828.08.2020 08:43