Паскаль! составить программу: 1)вводим любое четырехзначное число. в результате выполнения программы на экране такая запись: в числе - тысяч - сотен -десятков - единиц в скобках < > указаны переменные, сами скобки обозначают - в этом месте. 2)ввести с клавиатуры трехзначное число. определить сумму его цифр (переменная sum) и вывести эти цифры в обратном порядке. в результате выполнения программы на экране такая запись: в числе - сотен -десятков -единиц в скобках < > указаны переменные, сами скобки обозначают - в этом месте

106

357

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

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

lenakors1997

Информатика

4,6(84 оценок)

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin var n: =readinteger('введите четырехзначное число'); writeln('в числе'); writeln(n div 1000,' - тысяч'); writeln((n div 100) mod 10,' - сотен'); writeln((n mod 100) div 10,' - десятков'); writeln(n mod 10,' - единиц') end. тестовое решение: введите четырехзначное число 4072 в числе 4 - тысяч 0 - сотен 7 - десятков 2 - единиц // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin var n: =readinteger('введите трехзначное число'); var s: =n div 100; var d: =(n div 10) mod 10; var e: =n mod 10; writeln('sum=',s+d+e); writeln(e,d,s); writeln('в числе'); writeln(e,' - сотен'); writeln(d,' - десятков'); writeln(s,' - единиц') end. тестовое решение: введите трехзначное число 492 sum=15 294 в числе 2 - сотен 9 - десятков 4 - единиц