var i,A,n,sum,v:integer;beginwrite('Введите заданное А'); readln(A);write('Введите число вводов n'); readln(n);for i:= 1 to n dobeginwrite('Введите число'); readln(v);if v > A then sum:= sum +v;end;write('Сумма = ', sum);<span>end.</span>
var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.
3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
Ответ:
8
Объяснение:
При скорости передачи 200 символов в минуту за 5 минут передано 200×5 = 1000 символов. Поскольку объем сообщения 3000 бит, на один символ приходится 3000 / 1000 = 3 бита. Следовательно, размер алфавита не превышает 2³ = 8 символов.