Ответ:
Объяснение:
program chet;
var S: integer;
St: string;
begin
S:=0;
WriteLn ('Введите строку, содержащую цифры :');
ReadLn(St);
for var i:=1 to length(St) do
if ( St[i]='0') or ( St[i]='2') or ( St[i]='4') or
( St[i]='6') or ( St[i]='8') then S:=S+1;
WriteLn( 'Четных цифр - ' , S);
ReadLn;
end.
Uses Crt; // подключение модуля Crt
Var
a,b,c,S:real; // объявление переменных вещественного типа
Begin
ClrScr; // очистка консоли перед новым вводом переменных
Write('Введите три числа: '); // вывод приглашения к вводу
ReadLn(a,b,c); // считывание введённых с клавиатуры чисел в переменные a,b и c
S:=a+b+c; // запись суммы чисел в переменную S
if S > 10 then Write('Их среднее арифметическое: ',S/3)
else if S = 10 then Write('Их произведение: ',a*b*c)
else Write('Я ничего не понимаю');
ReadLn // ожидание нажатия пробела (чтобы консоль не закрылась сразу)
End.
Пример работы программы:
Введите три числа: 1 7 10
Их среднее арифметическое: 6
<span>напишу так: зефир найден 12 раз, зефир или шоколад - 15. Значит, шоколад БЕЗ зефира найден 3 раза. А ещё шоколад с зефиром найден 8 раз, то есть шоколад с зефиром и без зефира найден 8+3=11 раз</span>