Написать программу, язык pascal. ввести целое положительное число трехзначное число n. разбить это число на разряды (найти число сотен, десятков и единиц). найти сумму разрядов числа n

206

492

Посмотреть ответы 2

Ответы на вопрос:

2222381

Информатика

4,5(1 оценок)

Program razrad; var n,a,b,c,s: integer; begin write('введите положительное трехзначное число - '); readln(n); a: =n mod 10; {последняя цифра} b: =(n div 10) mod 10; {средняя цифра } c: =n div 100; {первая цифра} writeln('сотен - ', с, ', десятков -',b,', единиц - ',a); s: =a +b+c: writeln('сумма цифр числа - ',s)end.