Определите значение переменных х и у после выполнения фрагмента программы. X:=5; Y:=10; если X*2=Y то X:=X-Y*2 иначе Y:X*Y-1
165
392
Ответы на вопрос:
Const n=30; var i,k,m: integer; begin randomize; writeln('заданы мощности: '); k: =0; for i: =1 to n do begin m: =random(100)+50; write(m: 4); if m> 100 then k: =k+1 end; writeln; writeln('количество машин с мощностью больше 100 л.с. равно ',k) end. тестовое решение: заданы мощности: 147 126 69 149 121 112 69 138 144 135 148 133 86 101 109 82 60 126 80 96 66 113 77 86 147 100 131 146 84 70 количество машин с мощностью больше 100 л.с. равно 17
Популярно: Информатика
-
nyushanyusha20owzt3627.10.2020 09:26
-
ппппппп27р13.05.2021 06:14
-
aldeerGroMo09.09.2021 13:14
-
StanleyPines61824.01.2020 11:58
-
JustTkach16.01.2020 03:13
-
Bohdanka99914.07.2021 14:20
-
лппериоаоаопоопо28.08.2022 13:54
-
Kol07L0702.02.2022 05:13
-
cimuzoro30.11.2020 13:04
-
Флов227монстр12.05.2020 16:38