Объясните как работать в екселе очень курс
не понимаю как сделать пункт 7 и 8
172
474
Ответы на вопрос:
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.
Популярно: Информатика
-
fun234567790486624.02.2021 22:37
-
ermakovaaaa17.04.2020 03:55
-
dianavoronina454524.10.2021 07:44
-
Damirkair200319.10.2020 20:18
-
Алиска324523.01.2020 21:32
-
Zhenkyaaaa11.03.2020 22:21
-
ArthurMyChemov27.04.2021 14:55
-
mishelmarriano09.12.2020 19:22
-
gg32217.04.2020 17:04
-
ilyuza2004p06tr415.04.2022 07:20