Вывести на экран наибольший делитель натурального числа N, меньшего заданного натурального M - Pascal ABC. Created by dashaklimashova. informatika-ru

Вывести на экран наибольший делитель натурального числа N, меньшего заданного на...

Veter0k Var n,m,d:integer;
begin
readln(n,m);
d:=m-1;
while n mod d<>0 do d:=d-1;
writeln(d);
end.

Пример:
100 50
25

1 votes Thanks 1

dashaklimashova спасибо большое!)

petyaGavrikov

Verified answer

Program HelloWorld;var N,M,i:integer;beginN:=20;M:=5;i:=N div 2;
while(i>1)do begin if(N mod i=0)and(i<M) then break; dec(i); end; if(i>1) then writeln(i) else writeln('Error');end.

2 votes Thanks 1

dashaklimashova спасибо большое)

petyaGavrikov Пожалуйста.

Answers & Comments

Verified answer

Вставить элемент с данным значением после всех элементов больших данного Р. Паск...

2. Дано число х. Напечатать в порядке возрастания числа: sin х, cos х, ln х. Есл...

помогите с номером 7, в паскале:3...

9. Вычислить значение выражения:(Паскаль пожалуйста):))))))))...

Помогите пожалуйста, нужно в паскале Вычислить и вывести на печать значение функ...

Помогите номер 7, пожалуйста:3...

Вычислить значение выражения:f (x)=tgx^2*sin(1-3x)...

Заданы размеры А, В прямоугольного отверстия и размеры Х, Y, Z кирпича. Определи...

Заданы размеры А, В прямоугольного отверстия и размеры Х, Y, Z кирпича. Определи...

рекомендуемые вопросы

Helpful Links

Helpful Social