ПОМОГИТЕ, ПОЖАЛУЙСТА!!
Задано четырехзначное число. Проверить, что в заданном числе произведение 2-х первых цифр равно произведению двух последних цифр.

1

Ответы и объяснения

2014-02-10T16:27:47+04:00
Var n: integer; 
begin 
WriteLn('vvedite 4hznachnoe chislo'); 
ReadLn(n); 
if (n > 999) and (n <= 9999) and 
((n mod 10) * ((n div 10) mod 10) = ((n div 100) mod 10) * (n div 1000)) then 
WriteLn('yes') else WriteLn('no'); 
ReadLn;