Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
Не ясное задание. Может ты не все ответы написал?
1) Integer - целый тип, A
2) float - вещественный тип C
3)long - целый тип, но с расширенным диапазоном значений, поэтому к этому можно отнести A
4) character - целый символьный тип B
5) boolean - логический тип, который принимает только правду или ложь, которого у тебя нет в ответах, но он равен варианту D
Книга, т. к. это носитель информации
Для начала вычислим скорость данных по каналу: 3072Кбайт/5 мин=614,4 Кбайт/мин. Следовательно, файл размером 6144 Кбайт можно передать за 6144/614,4=10 мин