Определите формат данных чисел:
a)
1. денежный
б) 04.10.1992
2. время
в) 1295р.
3. Числовой
г) 275
4. экспоненциальный
д) 22:45
5. процентный
е) 4.56E+02
6. текстовой
ж) 1000,0%
3) 21/25
8. дробный
Например, ответ записываете: а-1, 6-2, в-3 и т.д.
Примечание, ответ записываете через запятую и пробел.
( : 4)
7. дата
Введите ответ

Информатика-это наука о получения, накопления, хранения, преобразования, передачи, защиты и использования информации. Информатика изучает автоматизированную обработку информации при компьютеров. С тех пор, как последние существуют, программисты создавать такие программы, которые позволяют компьютерам выполнять задачи, для решения которых биологическим существам потребовалось бы наличие разумного сознания. Простейший пример — это выполнение арифметических операций. Однако очевидно, что умножая числа, компьютеры не используют сознания.

Var
f: array[1..10] of integer;
i,suma,sumb:integer;
begin
randomize;
for i:=1 to 10 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
suma:=0;
sumb:=0;
for i:= 1 to 10 do
if f[i] mod 2 = 0 then
suma:=suma+f[i];
else
sumb:sumb+f[i];
writeln('Сумма четных: ',suma);
writeln('Сумма нечетных: ',sumb);
end.

var
f: array[1..8] of integer;
i,k,sumb:integer;
begin
randomize;
for i:=1 to 8 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
k:=0;
sumb:=0;
for i:= 1 to 8 do
if f[i] mod 2 = 0 then
k:=k+1;
else
sumb:sumb+f[i];
writeln('Количество четных: ',k);
writeln('Сумма нечетных: ',sumb);
end.