Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
K(кол-во символов в сообщении) = 3*40*60 =7200
N(мощность алфавита) = 64 = 2^6
7200*6=43200 бит=5400 байт.
Ответ:5400 байт
В общем всё на фотках на первой прога на второй блок схема, блок схема устаревшего образца как говорит (Эникей), хотя на ЕГЭ писал почти такую же и получил максимальный балл по заданию, если интересно я прикрепил ещё его вариант оформления цикла for только там блок схема для другой программы.
Ответ:
Код дан в приложении.
Объяснение:
Мы просто пробегаемся до корня числа и пытаемся найти такой делитель. Если мы уже превысили корень, но так и не нашли ответ, значит, число простое, и мы выводим сам x.
Асимптотика решения:
1. компьютер
2. робот
3. телефон
4. ноутбук
Устройство вывода - монитор
Не хватает буквы "И"