40

Напишите программу, которая считывает с клавиатуры последовательность символов…

08 февраля 2023

Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран количество четных цифр. Написать программу с помощьюцикла while или repeat или for. Помогите пожалуйста.

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

50

var c: char; count: integer; begin readln (c); while c <> '*' do begin case c of '2', '4', '6', '8': count: =count+1; end; readln (c); end; writeln ('count=', count); end.

Знаете ответ?

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