Б) программисты (алгоритмики это синоним к слову программисты).
Program n1;
var a,b,c,d: integer;
begin
readln(a,b,c,d);
if a>0 then a:=a*a
else a:=a*a*a*a;
if b>0 then b:=b*b
else b:=b*b*b*b;
if c>0 then c:=c*c
else c:=c*c*c*c;
if d>0 then d:=d*d
else d:=d*d*d*d;
writeln(a,' ',b,' ',c,' ',d);
end.
Или пиктограмма или ярлык, но я склоняюсь к первому
64КБайта = 65536бай
теперь дели это число на 1024 и получаем время 64 сек за которое это файл передаётся.
Теперь 256байт умножаем на это время и видам размер в байтах 16384.
теперь делим на 1024 и получаем 16 это и есть ответ
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>