4) DVD+RW
На CD-RW в принципе тоже можно, но перед этим надо полностью стереть все что там хранится и записать это заново. А первые два варианта - диски однократной записи.
Program n;
var
x: integer;
begin
writeln('Введите число');
readln(x);
if x mod 2=0 then writeln(x*x) else writeln(x*x*x);
<span>end.</span>
На 1 символ надо log(2)128=7 бит;
на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function IsAutomorph(s:string):boolean;
// Возвращает true, если строка s изображает
// автоморфное число, иначе возвращает false
begin
var b:BigInteger;
if BigInteger.TryParse(s,b) then
Result:=sqr(b).ToString.Right(s.Length)=s
else Result:=false
end;
begin
var s:=ReadlnString('Введите натуральное число:');
if IsAutomorph(s) then Println('Автоморфное')
else Println('Не автоморфное')
end.
<u><em>Тестовые решения:</em></u>
Введите натуральное число: 12890625
Автоморфное
Введите натуральное число: 3245
Не автоморфное