Var
a,b,c,s:integer;
Begins:=0;
writeln('Введите 3 числа');
readln(a,b,c);
If a mod 2=0 then s:=s+1;
If b mod 2=0 then s:=s+1;
If c mod 2=0 then s:=s+1;
writeln('Количество четных чисел=',s);
end.
Задание непонятное нужно писать ясно
Стих "Глобальное потепление"Автор:Я
температура повырилась
градусы увеличились
мм.рт.столба повышались
вода испарилась
пот выделялся
снег таял
на улицах никого
тени мало
лето было
жара наступила
солнце светило
всем спасибо
Секста́нт. Но тут еще надо написать на 20 символов какой-то дребедени, чтобы приняли мой ответ.
Из той ткани из какой её шили: бязь ситец, сатин, шёлк.