Turbo Pascal.Простейшие задачи. - вопрос №489730

Найти сумму цифр двухзначного числа

Лучший ответ по мнению автора

program sum;

var a, s:integer;

begin

 write('введите двузначное число ');

 readln(a);

 if (a<10) or (a>99) then writeln ('неправильное число')

                           else writeln('сумма чисел =', a mod 10+a div 10);  

 end.

09.12.12
Лучший ответ по мнению автора

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store