Пишите язык, на котором вам это нужно. Кто-нибудь же поиздевается и напишет на brainfuck-e.
Паскаль:
var a:integer;
begin
readln(a);
writeln(a/2)
end.
Нужно сначала наполнить 5 литровое ведро и вылить в 9, а потом ещё раз наполнить 5 литровое ведро и вылить в 9 литровое в котором уже есть вода. Остаток в 5 литровом ведре и будет 1 литр. Как-то так
1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
1). 1-ый, явно более раннее изображение, 2-ой - более позднее.
2). 1-ый старше, 2-ой - моложе.
3). Различные между собой отребуты одежды и воинской техники.