Var a, sqr : integer;
f1, f2 : text;
begin
assign(f1, 'input.txt'); reset(f1);
assign(f2, 'output.txt'); rewrite(f2);
read(f1, a, sqr);
if a = sqr then
write(f2, 'YES')
else
write(f2, 'NO');
close(f1); close(f2);
end.
100 в десятичной = 1100100 в двоичной.
Ответ: 3 единицы
1) не двухмерный, а двумерный
2) на каком языке писать?
Ответ:
$A$2+$B5
Объяснение:
$A не изменяется при копировании
$2 не изменяется при копировании
$B не изменяется при копировании
3 изменяется при копировании на +2 (8-6)
1 задача
var a, b, s, i, k:integer;
z:array[1..10] of integer;
begin
s:=1;
For i:=1 to 10 do
begin
z[i]:=random(16)-10;
if z[i]<0 then
begin
k:=sqr(z[i]);
s:=s*k;
end;
end;
For i:=1 to 10 do
begin
write (z[i], ' ');
end;
writeln ();
writeln ('Произведение квадратов равно ', s);
<span>end.</span>