Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>
Ответ:
Информация передаётся в форме сообщений от некоторого источника информации к её приёмнику посредством канала связи между ними.
Если брать по 1 байту на символ, то строка будет занимать 32 байта, а страница 32^6=4,096 байт. 640/8=80 страниц
2) 11 байт
Program lol_kek_4ebyrek;
var x, y:integer;
begin
writeln('Формула: y=x^2');
for x:=1 to 10 do
begin
y:=x*x;
writeln('При x=',x,' y=',y);
end;
end.