Вариант 1 (ответ просто True/False):
var
n: integer;
begin
writeln('Проверка, является ли натуральное число N точным квадратом');
write('Введите натуральное число N: ');
Read(n);
writeln('Результат: ', (Sqr(Int(Sqrt(n))) = n) and (n > 0));
end.
Вариант 2:
var
n: integer;
begin
writeln('Проверка, является ли натуральное число N точным квадратом');
write('Введите натуральное число N: ');
Read(n);
writeln('Результат: ', n > 0 ? Sqr(Int(Sqrt(n))) = n ? 'является' : 'не является' : 'введено число, не являющееся натуральным');
end.
4 байт V 24 бит ⇒ 4 · 8 бит V 24 бит ⇒ 32 бит > 24 бит
1000 бит V 1 килобайт ⇒ 1000 бит < 1 · 1024 байт
250 байт V 0.25 килобайт ⇒ 250 байт V 1/4 · 1024 ⇒ 250 байт < 256 байт
1 мегабайт V 1000 килобайт ⇒ 1024 килобайт > 1000 килобайт
8192 бит V 1 килобайт ⇒ 8192 бит > 1024 бит
Задание 58 килобайт = 8 · 1024 байт = 8192 байт
8 байт = 8 · 8 бит = 64 бит
64 килобайт = 64 / 1024 мегабайт = 0.06 мегабайт
1024 мегабайт = 1 · 1024 гигабайт
32 мегабайт = 32 · 1024 килобайт = 32768 килобайт
