Даны два целых числа. Определить, сумма цифр которого из них больше. Подсчет суммы цифр организовать через процедуру
264
479
Ответы на вопрос:
function summa(n:integer):integer;
var m,s:integer;
begin
s:=0;
m:=abs(n);
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10
end;
summa:=s
end;
var a,b,c,mx:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if summa(a)>summa(b) then mx:=a else mx:=b;
if summa(c)>summa(mx) then mx:=c;
write('Наибольшая сумма цифр в числе ',mx);
end.
Исключил возможность ошибки, если температура равна. если не нужно, удали последний "if" program z; var t1, t2: real; begin writeln('введите среднюю температуру вчера'); readln(t1); writeln('введите температуру сегодня'); readln(t2); if t1> t2 then writeln('сегодня холоднее'); if t1< t2 then writeln('сегодня теплее'); if t1=t2 then writeln('температура сегодня и вчера одинакова'); end.
Популярно: Информатика
-
Joker45515.10.2022 09:15
-
Валерияжеле10.01.2022 11:44
-
Даниил52039324.11.2022 07:41
-
alexdias01.04.2021 19:18
-
irinatalanina9526.10.2020 01:57
-
ulzhan1606199919.09.2022 18:48
-
GangsterNigga110.05.2021 10:29
-
Данила468804.05.2021 16:17
-
danya133829.05.2022 19:21
-
Tishukvasiliy01.06.2023 19:17