Специальные так как только с помощью них можно выключить и включить компьютер на клавиатуре.
Картинка с ответами в приложении
//PascalABC.NET 3.1 сборка 1200
begin
PrintLn(ArrRandom(30, 0, 500).Println().ToArray
.Where(x->x mod 20 = 0).Println()
.Count);
end.
8 0 0
5 0 3
5 3 0
2 3 3
2 5 1
7 0 1
7 1 0
4 1 3
4 4 0
или нужно именно за 7 переливаний?
Как-то так...:Ъ
var
n:real;
begin
readln (n);
n:=n*sqrt (2);
writeln (n);
end.