№25433.
Здравствуйте! Очень нужна помощь.
Условие :
Ниже на четырех языках записан алгоритм. Получив на вход число x, этот алгоритм печатает число L. Известно, что x > 50. Укажите наименьшее из таких чисел х (больших 50), при вводе которых алгоритм печатает 6.
Паскаль
var x,L,M : integer;
begin
readln(x);
M:=32;
L:=x;
if L mod 7=0 then
M:=36;
while M < > 0 do
begin
x:=L mod M;
L:=M;
M:=x
end;
write(L)
end.
просмотры: 3362 | информатика 10-11