Задание:
Пожалуйста помогите решить желательно все или хотя бы одну (P.S. Программа для программы Turbo Pascal) 1. Написать программу, которая предлагаетввести 3 значное число и находит сумму его цифр.
Решение:
1 и 2 работают до макс. Значения integer, а не только трехзначные var i,s: integer; beginreadln (i); while i>0 do begins: =i mod 10; i: =i div 10; end; writeln (s); end. var i: integer; beginreadln (i); while i>0 do beginwrite (i mod 10); i: =i div 10; end; end. var a,b,c: integer; beginreadln (a,b,c); writeln ('Sum=',a+b+c,' Proizvedenie=',a*b*c,' Sr.arifm=', (a+b+c) /3); end.
Знаете другой ответ?