Пож-та,помогите решить задание (верхнее)+!!!Спасибо всем ,кто ответил.
Пож-та,помогите решить задание (верхнее)+!!!Спасибо всем ,кто ответил.
Гость
Ответ(ы) на вопрос:
Гостьvar s:real;
a, p:integer;
begin
readln (a);
p:=a;
s:=0;
while p>0 do
begin
s:=s+p mod 10;
p:=p div 10;
end;
writeln (s);
end.
Не нашли ответ?
Похожие вопросы