Составить программу в паскале для 8 класса, без array пожалуйста…

Question

Составить программу в паскале для 8 класса, без array пожалуйста, задача: найти кол-во четных цифр числа, тема — разработка алгоритма содержащего цикл сусловием, тоесть с while, do, begin ну тоесть их испобьзовать, вот так составить программу по задаче

Answer 1

38

alerator

15 августа 2022

Самое простое что придумал) uses crt; vari,a,s: integer; beginwrite ('vvedite 4islo: '); read (a); s: =0; while a>=1 dobegini: =a mod 10; a: =a div 10; if i mod 2=0 thens: =s+1; end; write ('kolvo 4etnblx=',s); read; end. Смысл программы: делит число на 10 и проверят четный остаток или нет, и следовательно четная это была цифра или нет)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: