• Дано трехзначное число. Проверить истинность высказывания "Цифра, расположенная в середине числа, равна произведению двух крайних цифр" Очень нужна программа!

Ответы 1

  • var  q1,q2,q3,n:integer;beginwrite('Введите трехзначное число n ');read(n);q3:= n mod 10;q2:= n div 10;q2:= q2 mod 10;q1:= n div 100;writeln(q1:4,q2:4,q3:4);if q2 = q1*q3 thenwrite('Цифра, расположенная в середине числа, равна произведению двух крайних цифр')elsewrite('Цифра, расположенная в середине числа, не равна произведению двух крайних цифр');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years