Var
x, y, p: Integer;
begin
Writeln('Введите два числа');
Readln(x, y); {вводим два целых числа}
p := x * y;
repeat
if x > y Then x := x Mod y
Else y := y Mod x
until (x = 0) Or (y = 0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОK=', p / (x + y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
end.
________________________________________________
смотрите решение на листике
Условие не выполняется, значит выполняется else. Ответ 24
360000/150*40=<span>60 символов
Формула: I(объем)=i(мощность)*k(Обозначим так страницы)*n(обозначим там кол-во строк на 1 стр)*a(Обозначим так кол-во символов в сроке)
Т.к. у тебя не указан алфавит, будем считать его мощность за 1 байт.
Ответ:60</span>