6 потому что это чётное и нечетное число. В тоже время есть и другие в.о., но
var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.
Ответ. 2
всего 4 монеты, значит информации нужно получить
бита, одно взвешивание на весах равносильно одному биту, потому что уменьшаем незнание в двое (т.е. какая из двух чаш легче), значит нужно не менее двух взвешиваний.
Var
a,b:real;
begin
read(a,b);
writeln(a*b);
end.