Вопрос напишите программу на паскале "определить все ли цифры в числе равны (7777)", очень прошу ((

[barnihovk]

напишите программу на паскале "определить все ли цифры в числе равны (7777)", очень прошу ((

 

[ildus]

Если бы написал: Все ли цифры равны или все ли равны семи... А цифра из 4 семерок -это бред какой-то

 

[DiMaN4iK_015]

function check(n:integer):boolean; begin while n > 10 do begin if n mod 10 <> n div 10 mod 10 then begin check:=false; exit; end; n:=n div 10; end; check:=true; end;