Симанский
4 год назад
составьте программу которая находит сумму цифр трех значного числа на PascalABC
ОТВЕТЫ
Румен
Oct 24, 2020
Program n1;
var a: integer;
begin
readln(a);
a:=abs(a);
write((a div 100)+ (a mod 10)+ (a mod 100 div 10));
end.
var a: integer;
begin
readln(a);
a:=abs(a);
write((a div 100)+ (a mod 10)+ (a mod 100 div 10));
end.
560
Смежные вопросы:
