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.
Палатку
наприклад для лісу і обклеяти ізолєнтою або скочем
Может быть. Но как минимум - тебе надо еще пятерок десять для этого :D
Ничәнче сыйныфта укый Марат?
Береза, медведь, черный хлеб, матрешка, балалайка и много много других