напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран количество четных цифр. Написать программу с помощью
5-9 класс
|
цикла while или repeat или for. Помогите пожалуйста.
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.
Другие вопросы из категории
и зелёный цвета, если количество краски не ограничено, а каждую ёлочку можно красить только в один цвет? Плиз! Дам 11 баллов и благодарность и оценку пять!
Читайте также
а)количество считанных десятичных цифр;
б)количество четных цифр;
в)количество нечетных цифр;
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!