1) 70
2) 427
3)50
4) нет вопроса
5) 3400
6) 2200
7)277
8) 250
9) 533
10) 140
Var
N,K,R: integer;
x,s: integer;
begin
read(N,K);
R := N;
x := 2; s := 4;
while s <= K do
begin
while K mod x = 0 do
begin
if N mod x = 0 then
N := N div x
else
R := R * x;
K := K div x;
end;
s := s + 2*x + 1;
x := x + 1;
end;
if N mod K <> 0 then
R := R * K;
writeln(R)
end.
Так как x>0 и x≤3, то верно следующее:
<span>a & b
Ответ: </span><span>a & b</span>
800*600 = 480000 бит = 58.6 Кб.
i=4 бита
N=2^4 = 16 цветов.
Два способа в одном операторе))
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,30).Sum,' ',(1+30)*30 div 2)
end.
<u>Пример</u>
465 465