Какое из приведенных имен удовлетворяет логическому условию (первая буква гласная →вторая буква гласная)˅предпоследняя буква согласная? а) АНДРЕЙ
б) ОФЕЛИЯ
в) АНТОН
г) ОЛЬГА
186
350
Ответы на вопрос:
Уменя тоже комп далеко, поэтому пишу программы прямо на телефоне! ; -) и вот, что получилось (все результаты проверены): program first; type arr = array of integer; var a : arr; i, p, l : integer; f : real; begin writeln('вводите числа (0 - окончание ввода)'); i: =1; l : =0; repeat readln(p); if p=0 then break; setlength(a, i); a[i-1]: =p; i: =i+1; l: =l+1; until p=0; p: =0; for i: =0 to l-1 do p: =p+a[i]; f: =p/l; writeln(f: 5: 2); end. program second; var p, i : integer; begin write('введите количество чисел: '); readln(p); for i: =1 to p do write(7*i, ' '); end. program third; var count, p : integer; begin writeln('вводите числа'); count : =0; repeat readln(p); if p=0 then break; if (p mod 2 = 0) then count: =count+1; until p=0; writeln ('было введено ', count, ' чётных чисел.'); end.
Популярно: Информатика
-
osipolara07.03.2022 00:15
-
tankist0905629.07.2020 20:42
-
mukhamedinaguls14.02.2023 23:30
-
ВладимирЛенин109.02.2020 23:34
-
FoxFantasy22.07.2020 03:12
-
daniltimm26.08.2021 04:14
-
Рад111111121.10.2021 10:13
-
ycidenis104.07.2021 10:51
-
артем148833729.03.2023 18:12
-
diko200912.01.2022 19:09