<span>1. вечный двигатель, </span>числа, которые делятся на 0
<span>2. Солнце, Москва</span>
<span>3. гласные буквы в русском алфавите </span>
<span>4. числа больше 1 </span>
Var a: array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] > 0) then writeln ('Положительное и четное: ', a[i]);
end;
<span>end.
//Программа проверяет каждое число при вводе, т.е. если введённое число является положительным и четным, то программа его сразу же выводит.</span>
Ответ:
1) v=k*i
10*1024*8=8*32*40*i
i=10*1024*8/8*32*40=81920/10240=8
N=2^i=2^8=256
48•64=3072 всего символов
3072•8=24576 бит
24576÷8000=3.072 кб