найти сумму цифр 3-х значного числа, если оно больше 500, если

Отыскать сумму цифр 3-х значного числа, если оно больше 500, если меньше то творение.

Задать свой вопрос
Владислав Комаришкин
Написать программку в Pascal?
Евгений Окнин
да
Андрей Окрестин
А если = 500?
Костик Бермадский
я хз мне так учитель написал
1 ответ
Вот держите:

var   a:integer;
begin     
   readln(a);     
   if alt;500 then writeln((a mod 10) + (a div 10 mod 10) + (a div 100))     
   else if agt;500 then writeln((a mod 10) * (a div 10 mod 10) * (a div 100));
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт