Автор 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[активный]
На можешь поискать
На можешь поискать
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Паскаль плз. Найти сумму цифр числа. сказали решать через function. делением чтоли... никак сообразить не могу(
Подскажите, пожалуйста, признак делимости на 36! очень нужно!
число делится на 36, если делится на 4 (т. е 2-е последние цифры делятся на 4) и делится на 9 (т.
подробнее...
Остаток от деления в паскале
потому что остаток от деления 1 на 2 - 1. откуда вы взяли 5 - непонятно. учите
подробнее...