Составьте программу по этому. a-7, b-8program test; var a, b, c; integerbegin readen (a, b); c: =(a+b) *(b-a) write m,(c) end
197
302
Ответы на вопрос:
Var x,y,i: integer; begin y: =0; for i: =1 to 10 do begin readln(x); if x> 1 then inc(y); end; writeln(y); end.
Популярно: Информатика
-
KopolbEnufaHtuy02.03.2022 03:01
-
pbenitcevich2303.04.2022 09:20
-
2003tanya20.02.2021 18:24
-
shark74104.02.2021 16:26
-
Маша92389210.02.2023 16:12
-
chiastr15.02.2023 12:50
-
Прммрррр06.01.2020 22:18
-
DimanGame201608.01.2021 00:03
-
Stupidpeoplenamber113.04.2022 14:01
-
пума06030.10.2020 12:07