Учеба и наука
Решено
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.
Лучший ответ по мнению автора
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.
Учеба и наука