barnihovk B barnihovk Регистрация 23 Авг 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 17 Окт 2016 #1 напишите программу на паскале "определить все ли цифры в числе равны (7777)", очень прошу ((
ildus I ildus Регистрация 25 Апр 2013 Сообщения 66 Репутация -3 Спасибо 0 Монет 0 17 Окт 2016 #2 Если бы написал: Все ли цифры равны или все ли равны семи... А цифра из 4 семерок -это бред какой-то Позитивный голос 0
DiMaN4iK_015 D DiMaN4iK_015 Регистрация 17 Апр 2013 Сообщения 76 Репутация 0 Спасибо 0 Монет 0 17 Окт 2016 #3 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; Позитивный голос 0
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;