Я такого еще не проходил. Не думаю что кто-то даст ответ. уже 11 минут висит вопрос.
Для трехзначногозакономерность будет такая
x = a*100 +b*10+c
x*x = (a+b+c)^3
видимо нужно в цикле перебрать от 100 до 999 и посмотреть что попадет под условие
Каждый символ кодируется 2 байтами, то есть i=2 байт переводим в бит. i=16 бит. Всего символов 32. Значит, I = 32*16 = 512 бит
Ответ:512 бит
Ответ смотри в фотографии
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.