Регистрация
Войти
Стать экспертом Правила
Информатика

Задание: Дано 2-х значное число, определить является ли сумма его цифр 2-х значным числом. Вопрос: Как решить эту задачу в программе Free Pascal???

ОТВЕТЫ
//Pascal
var N: byte;
begin
  write('Введите 2-значное число: '); readln(N);
  if (N mod 10 + N div 10) >= 10 then
    writeln('Сумма цифр 2-значная = ', N mod 10 + N div 10)
  else
    writeln('Сумма цифр не 2-значная = ', N mod 10 + N div 10);
  readln;
end.


Пример:
Введите 2-значное число: 86
Сумма цифр 2-значная = 14
---------------------------------------------
Введите 2-значное число: 54
Сумма цифр не 2-значная = 9
326
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам