Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln(' x y');
for var i:=-10 to 10 do writeln(i:2,' ',i*i:3);
end.
Ответ:
460 байт= 3680 бит
Объяснение:
1 Байт равен 8 битам
Просто умножь 460 на 6 и получишь 3680.
P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.