3 значное число нужно сложить числа в этом числе паскаль
3 значное число нужно сложить числа в этом числе паскаль
Гость
Ответ(ы) на вопрос:
Гостьprogram dig3;
var
n, a, b, c: integer;
begin
write('Число: ');
readln(n);
a := n div 100;
b := n mod 100 div 10;
c := n mod 10;
writeln(a + b + c);
end.
Не нашли ответ?
Похожие вопросы