Var k: integer;
function square(k: integer): boolean;
begin
if sqr(trunc(sqrt(k))) = k {Проверяем, является ли квадрат округлённого квадратного корня самим числом}
then
square := true
else
square := false;end;
begin
read(k);
writeln(square(k));
<span>end.</span>
1) программа дешифратор.
2) прога для 3D моделей. (3D Studio Max)
MS Excel
__________________________________________
Ну, конечно, можно.
50 * 60 = 3000 байт
3000 * 120 = 360000 байт
360000 : 1024 = 351,5625 Кбайт
А на дискетке - в 4 раза больше места.