Подём,умываться, чистить, зубы, завтрак,сбор партфеля и идти в школу
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
1) Набрать 8 литровый сосуд
2) Перелить в 3-x литровый из 8-ми литрового
3) Вылить все из 3-х литрового и повторить действие 2
4) Повторить действие 3
В 3-х литровом сосуде теперь 2 литра
5) Набрать 8 литровый сосуд и вылить из него 1 литр в 3-х литровый
<span>function f1(t1){
if((t1/2)==parseInt(t1/2)) return "Число чётное"; else return "Число нечётное";
}
var a=prompt("Введите число");
alert(f1(a));<span>
</span></span>