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.
===== PascalABC.NET =====
procedure Tri(a, b: real; var c, S, P: real);
begin
c := Sqrt(a * a + b * b);
S := 0.5 * a * b;
P := a + b + c
end;
begin
var (a, b) := ReadReal2('Введите длинв катетов:');
var c, S, P: real;
Tri(a, b, c, S, P);
Writeln('Гипотенуза ', c:0:3, ', площадь ', S:0:3,
', периметр ', P:0:3)
end.
Var a,k:integer;beginwriteln ('На сколько яиц больше курочка снесла во второй раз, k = ');readln(k);a:=1+(1+k)+(1+k+k)+(1+k+k+k)+(1+k+k+k+k);writeln('Дед и баба могли сделать яичницу из ',a,' яиц');end.
исследователи в разлычных научных и прикладных областях;
художники;
конструкторы;
специалисты по компютерной верстке;
дизайнеры;
разработчики рекламной продукции;
создатели Web-страниц;
авторы мултимедиа презентаций;
медики;
модельеры тканей и одежды;
фоторафы;
специалисты в области теле- и видеомонтажа и др.
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20. Воть;) Хотя это не точно...