Дано трехзначное число. Проверить истинность высказывания "Цифра, расположенная в середине числа, равна произведению двух крайних цифр" Очень нужна программа!
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
