Ответы на вопрос:
надеюсь не проблема что на русском. 1в наше время много чего происходит в интернете, и многие компании и тд создают сайты, и странички 2 много важных и достоверных новостей можно найти. 3 общение, ведь не у всех есть время говорить по телефону, а писать письма слишком долго и затратно
Program gt; var a: array[1..7]of integer; k,i,q: integer; begin read(k); q: =0; for i: =1 to 7 do read(a[i]); for i: =1 to 7 do begin if(a[i]> -20)then writeln(i,' день ',k,' тонн угля'); if(a[i]< =-20)and(a[i]> =-30)then writeln(i,' день ',k+5,' тонн угля'); if(a[i]< -30)then writeln(i,' день ',k+12,' тонн угля'); if(a[i]< -30)then q: =q+1; end; writeln(q,' дней температура было ниже -30'); end.
Популярно: Информатика
-
mashashhukina18.03.2022 13:34
-
amir129006.02.2020 14:13
-
СофияKomarova17.11.2020 11:38
-
ilonabunduk06.06.2022 18:19
-
DobinaDaria110.07.2020 03:33
-
girb1321.05.2021 08:23
-
Kuzenka200323.03.2022 04:35
-
АлександрСмуглиенко27.08.2020 02:05
-
shenikov200322.09.2020 06:20
-
Raadzhab26.06.2020 13:27