70

ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ. ЗАРАНЕЕ СПАСИБО!

farcry3 18 сентября 2022

ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ. ЗАРАНЕЕ СПАСИБО! Дано натурально число n. Верно ли, что в записи числа три раза встречается цифра 5?

категория: информатика

51

program msd; uses crt; var a,k,i,l: LONGINT; beginclrscr; readln (a); while true do beginl: =a mod 10; a: =a div 10; if l=5 then k: =k+1; if a=0 then break; end; if k=3 then writeln ('DA') eLSe WRITeLN ('NeT'); ReADKeY; eND.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...