Раскрась и заполни таблицу преобразуй данные
одного вида в другой (графические в текстовые).
226
407
Ответы на вопрос:
Var a: array[1..10] of real; i,k: integer; begin for i: =1 to 8 do readln(a[i]); for i: =1 to 8 do if a[i]< 10 then k: =k+1; writeln(k); end.
Популярно: Информатика
-
настя123настя114.06.2023 03:32
-
dilfuza210503.02.2023 12:24
-
ilslim25.07.2021 01:28
-
Spasibozaotvet431.05.2022 07:35
-
sher123452806.10.2022 01:33
-
AlinaAlinochka200820.08.2020 20:01
-
Пони0с0радушкой02.07.2022 18:35
-
dobylarsen30.06.2022 04:26
-
makskatya2003.03.2021 18:31
-
korekhova1986super05.06.2023 23:21