Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.<span>
</span>
Var input:integer;
begin
write('Enter number - ');
readln(input);
case input of
1..9:writeln('Odnozhachnoe!');
else writeln('Error!');
end;
end.
В предложении 69 символов.
16 бит = 2 байта
I=69*2=138 байт
Ответ: 138 байт
<span>Сканер создаёт цифровую копию изображения объекта.</span>
4 гб такйже был правильный ответ на моем уроке