2. Установите соответствие типов форматов данных ФОРМУЛА 100 тг
ЧИСЛОВОЙ 12.11.2020
ДЕНЕЖНЫЙ 17:25
ТЕКСТОВЫЙ =А3-В4
ПРОЦЕНТНЫЙ Выполнено 100%
ДАТА Казахстан
ВРЕМЯ 70%
СР
192
314
Ответы на вопрос:
формула:=А3-В4
числовой: Выполнено 100%
денежный:100тг
текстовый: Казахстан
Процентный: 70%
Дата: 12.11.2020
время: 17:25
Объяснение: по моему так
Program q1; uses crt; const n=10; var i,j: integer; mass: array [1..n] of integer; countnum: integer; // переменная для хранения количества нечетных чисел proizv: integer; // переменная для хранения произведения нечетных чисел begin proizv: =1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} writeln('случайные целые числа: '); for i: =1 to n do begin mass[ i ]: =random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {вычисление произведения и количества нечетных чисел} for i: =1 to n do if mass[ i ] mod 2 < > 0 then //проверяем не четное-ли число, если да, то.. begin inc(countnum); //увеличиваем на один кол-во нечетных чисел proizv: =proizv*mass[ i ]; // высчитываем произведение end; {вывод результатов} writeln; writeln('всего нечетных чисел: '+inttostr(countnum)); writeln('их произведение: '+inttostr(proizv)); end.
Популярно: Информатика
-
mashkasuper118.01.2021 17:38
-
malinka14910.03.2021 09:20
-
ilmir1411.08.2020 15:03
-
Валерия150818.05.2022 12:56
-
азаззазазаазз22.04.2020 11:03
-
АминаАлханова15.04.2020 06:31
-
жания11202.08.2021 14:28
-
тисрлю12.12.2020 18:53
-
Dalishka80810.11.2022 21:47
-
macglok1221.03.2021 02:53