Есть ответ 👍

В ЧЕМ ОШИБКА var f:text;
n,i,s,x:integer;
begin
assign(f,'номера.txt');
reset(f);
readln(f,n);
s:=0;
for i:=1 to n do
begin
read(f,x);
if x mod 2=0 then s:=s+x
end;
writeln('СУМА ',s);
close(f)
end.

244
435
Посмотреть ответы 1

Ответы на вопрос:

Boss2009
4,7(15 оценок)

в 16симв. алфавите каждый смвол весит 4 бита(2⁴=16)

4*384=1536 бит

1536/8=192 байта

192/1024=0.1875 кбайт

может тебе в килобитах надо а не в килобайтах?

1536/1024=1.5 кбит

Популярно: Информатика