Подскажите название игры. там нужно играть за человечка черного цвета (кажется мальчика). я мало что - id960858720200702 от vitaliy555555 02.07.2020 17:04

Question

Информатика: Подскажите название игры. там нужно играть за человечка черного цвета (кажется мальчика). я мало что помню об этой игре. и где происходит всё действие я тоже помню смутно. вроде на каком то заводе. и тебя там могло сплющить и раздавить легко. брат в неё играл лет 5-6 назад примерно.

vitaliy555555 · Accepted Answer

1. Для нахождения НОД используем алгоритм Евклида.

var
a, b, i: integer;

begin
Write('Введите два натуральных числа '); Readln(a, b);
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
Writeln('НОД этих чисел равен ', a)
end.

Тестовое решение:
Введите два натуральных числа 3264 1296
НОД этих чисел равен 48

2. Тут все намного проще, алгоритм очевиден.

var
a, i: integer;

begin
Write('Введите натуральное число '); Readln(a);
i := 2;
while (a mod i) <> 0 do i := i + 1;
Writeln('Минимальный делитель равен ', i)
end.

Тестовое решение:
Введите натуральное число 187
Минимальный делитель равен 11

MOGZ ответил