Var A,k:integer;
Begin
k:=-1;
Repeat
Read(A);
if A mod 2 = 0 then k:=k+1;
Until A=0;
WriteLn('k = ',k)
End.
Пример вашей программы в прикрепленном файле
1. Геометрическое представление функции - график
2. Несколько предложений, связанных по смыслу - текст
3. Набор цифр - число
4. Колебания воздуха, воспринимаемые ухом - звук
Из букв в выделенных клетках собери слово "ВКУС". Какую информацию оно отражает?
<span>3) вкусовую</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
<u>Пример</u>
n= 319
638
Первое высказывание-нет т.к есть множество других слов подходящих под описание
Второе-да потому что точно описывает термин мультимедиа