Цитата:
Сообщение от Дарья71
1. Напечатать таблицу перевода температуры из градусов по шкале Цельсия в градусы шкалы Фаренгейта для значений от М градусов до N грвдусов с шагом k градусов. перевод осуществляется по формуле F=1.8*C+32
2. В диапазоне [M; N] найти число с максимальной суммой делителей
|
Уважаемая Дарья, прежде всего - НАСТОЯТЕЛЬНО рекомендуется указывать язык (среду) программирования. TurboPascal? Pascal ABC? Delphi? Lazarus? Потому что коды для этих пакетов могут существенно различаться. Хорошо, будем считать, что TurboPascal. Далее. Что до первой задачки - то постыдились бы подобный детсад выкладывать! Давайте-ка самостоятельно. Ну а со второй - ладно, получите:
Код:
Var
M,N,K,Kmax,S,Smax,i:Integer;
Begin
Write('M = ');
Readln(M);
Write('N = ');
Readln(N);
Kmax:=M;
Smax:=0;
for K:=M to N do
begin
S:=0;
for i:=1 to K do
if (K mod i)=0 then Inc(S,i);
if S>Smax then
begin
Smax:=S;
Kmax:=K;
end;
end;
Writeln('Result: ',Kmax);
Readln
End.