Условие: вася любит решать на темы, которые проходили на занятиях кружка по . он познакомился с темой, - id942490920200207 от vika2074 07.02.2020 07:54

Question

Информатика: Условие: вася любит решать на темы, которые проходили на занятиях кружка по . он познакомился с темой, связанной с делимостью чисел. по дороге домой из школы он записывал все числа, которые встретились ему на пути. получился набор из n целых чисел. ему интересно, можно ли разбить этот набор не более чем на три группы так, чтобы в каждой группе все числа имели общий делитель, больший 1. ему решить эту . формат входных данных в первой строке входного файла записано одно целое число n (1 ⩽ n ⩽ 105).

vika2074 · Accepted Answer

FOR
Var a, i, n, sum: integer;
Degin
  ReadLn(a, n);
  Sum := 1;
For i := 1 to n do sum := sum * a;
  WriteLn(sum);
End.

WHILE
Var a, i, n, sum: integer;
Begin
Read(a, n);
Sum := 1;
  While i <> n do
Begin
  Sum := sum * a;
   Inc(i);
End;
Writeln(sum);
End.

REPEAT
Var a, i, n, sum: integer;
Begin
Read(a, n);
Sum := 1;
  If n <> 0 then
Repeat
Begin
Sum := sum * a;
Inc(i);
End;
Until i = n;
  WriteLn(sum);
End.

MOGZ ответил