procedure S(i:int64;var r:int64);
begin
r:=0;
while i>0 do begin
r:=r+i mod 10;
i:=i div 10;
end;
end;
var
a,sa,b,sb,c,sc,d,sd:int64;
begin
write('Введите 4 числа:');
readln(a,b,c,d);
S(a,sa);S(b,sb);S(c,sc);S(d,sd);
if sa>sd then begin sd:=sa;d:=a;end;
if sb>sd then begin sd:=sb;d:=b;end;
if sc>sd then begin sd:=sc;d:=c;end;
writeln('Ответ:',d);
end.
Сочинение - письмо. Здравствуй, Дорогая Люсенька. Это я, Инна из детского дома. Меня мучает совесть, поэтому я бы очень хотела извиниться перед тобой. Люсенька, я знаю, что ты очень добрый человек, и скорее всего уже не обижена на нас, но всё же мне очень хочется извиниться перед тобой. Прости меня и остальных девочек за то, что мы были черствы и равнодушны по отношению к тебе. Прости за то, что в ту ночь мы с девочками, а в частности я, пошли и всё рассказали няне. Прости за то, что в ту ночь тебя избили, в этом тоже виноваты мы. Люсенька, прости нас за всё! Я надеюсь, что когда - нибудь ты простишь нас, что у тебя в жизни всё будет хорошо! Прощай, Люсенька!
Сочинение - письмо. Здравствуй, Дорогая Люсенька. Это я, Инна из детского дома. Меня мучает совесть, поэтому я бы очень хотела извиниться перед тобой. Люсенька, я знаю, что ты очень добрый человек, и скорее всего уже не обижена на нас, но всё же мне очень хочется извиниться перед тобой. Прости меня и остальных девочек за то, что мы были черствы и равнодушны по отношению к тебе. Прости за то, что в ту ночь мы с девочками, а в частности я, пошли и всё рассказали няне. Прости за то, что в ту ночь тебя избили, в этом тоже виноваты мы. Люсенька, прости нас за всё! Я надеюсь, что когда - нибудь ты простишь нас, что у тебя в жизни всё будет хорошо! Прощай, Люсенька!
begin
r:=0;
while i>0 do begin
r:=r+i mod 10;
i:=i div 10;
end;
end;
var
a,sa,b,sb,c,sc,d,sd:int64;
begin
write('Введите 4 числа:');
readln(a,b,c,d);
S(a,sa);S(b,sb);S(c,sc);S(d,sd);
if sa>sd then begin sd:=sa;d:=a;end;
if sb>sd then begin sd:=sb;d:=b;end;
if sc>sd then begin sd:=sc;d:=c;end;
writeln('Ответ:',d);
end.