1.Дано целое число А. Определить количество цифр в числе, которые больше 6.Pascal

Ответы:

Каролина Семёнова

15-08-2015 21:08

var A, counter: integer;begin readln(A); counter := 0; repeat if (A mod 10 > 6) then inc(counter); A := A div 10; until (A = 0); writeln(counter);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Михаил Мельник

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «1.Дано целое число А. Определить количество цифр в числе, которые больше 6.Pascal» от пользователя Михаил Мельник в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!