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

dashaklimashova @dashaklimashova

July 2022 2 3 Report

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

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

vstavit element s dannym znacheniem posle vseh elementov bolshih dannogo r pask

2 dano chislo h napechatat v poryadke vozrastaniya chisla sin h cos h ln h esl

pomogite s nomerom 7 v paskale3

9 vychislit znachenie vyrazheniyapaskal pozhalujsta

pomogite pozhalujsta nuzhno v paskale vychislit i vyvesti na pechat znachenie funk

pomogite nomer 7 pozhalujsta3

vychislit znachenie vyrazheniyaf xtgx2sin1 3x

zadany razmery a v pryamougolnogo otverstiya i razmery h y z kirpicha opredeli764fee6be42248d66c921918232cbceb 40091

zadany razmery a v pryamougolnogo otverstiya i razmery h y z kirpicha opredeli

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

Helpful Links

Helpful Social