Program Division;
var a, b, c, d, m, n, : integer
begin
readln (a, b, c. d);
m:=a*d;
n:=b*c;
write (m, n)
end
Var
a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i] := i-4;
a[2] := a[9] + a[2];
a[9] := a[2] - a[9];
a[2] := a[2] - a[9];
for i:=1 to 10 do
write(a[i], ' ');
end.
2 вида: не могу и не умею
Var
N,A:integer;
B:longint;
k:boolean;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
Begin
k:=true;
A:=N;
B:=A*A;
While A<>0 do
Begin
if (A mod 10 <> B mod 10) then k:=false;
A:= A div 10;
B:= B div 10;
End;
if k then Write(N,' ');
End;
End.
В первом случае 2^8=256, то есть один символ кодируется 8 символами. во втором 2^5=32, то есть один символ кодируется 5 символами. 8:5=1,6. в 1,6 различаются. Вроде так