Учеба и наука

Решено

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

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

декабрь 9, 2012 г.

  • Всего ответов: 1

  • 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.

    декабрь 9, 2012 г.
    Ответ понравился автору
    Лучший ответ по мнению автора

Похожие вопросы

Решено

Как вы понимаете смысл фразы...

декабрь 16, 2013 г.

Учеба и наука

Решено

как ввести формулу в excel

январь 11, 2012 г.

Учеба и наука