Автор Ah1 задал вопрос в разделе Другие языки и технологии
Паскаль плз. Найти сумму цифр числа. сказали решать через function. делением чтоли... никак сообразить не могу( и получил лучший ответ
Ответ от Виктор Фадеев[гуру]
function summa(chislo:integer):integer;
var s:integer;
begin
s:=0;
while (chislo > 0) do
begin
s:=s + (chislo mod 10);
chislo:=chislo div 10
end;
summa:=s
end;
var n:integer;
begin
write('vvedite chislo: ');readln(n);
write('suumma: ',summa(n));
readln
end.
Ответ от Евгений Ломега[гуру]
пиши в агент или icq 452371863
пиши в агент или icq 452371863
Ответ от Александр Жуков[гуру]
o_O, алгоритм - считываем число в формате string, через цикл запускаем поочередное считывание чисел с последующим преобразованием в тип числа и прибавляем к предыдущему, здесь можно обойтись и без functions
вот задача которую давно писал я
попробуй будет ли работать
var
a,b,res1,res2:int64;
begin
res1:=1;
res2:=1;
readln(a,b);
a:=abs(a);
b:=abs(b);
if(a=0)or(b=0)then
writeln('0') else begin
while a>0 do
begin
res1:=res1*(a mod 10);
a:=a div 10;
end;
while b>0 do
begin
res2:=res2+(b mod 10);
b:=b div 10;
end;
writeln(res1+res2);
end;
end.
o_O, алгоритм - считываем число в формате string, через цикл запускаем поочередное считывание чисел с последующим преобразованием в тип числа и прибавляем к предыдущему, здесь можно обойтись и без functions
вот задача которую давно писал я
попробуй будет ли работать
var
a,b,res1,res2:int64;
begin
res1:=1;
res2:=1;
readln(a,b);
a:=abs(a);
b:=abs(b);
if(a=0)or(b=0)then
writeln('0') else begin
while a>0 do
begin
res1:=res1*(a mod 10);
a:=a div 10;
end;
while b>0 do
begin
res2:=res2+(b mod 10);
b:=b div 10;
end;
writeln(res1+res2);
end;
end.
Ответ от Programmer[активный]
На можешь поискать
На можешь поискать
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Паскаль плз. Найти сумму цифр числа. сказали решать через function. делением чтоли... никак сообразить не могу(