var
x, y: real;
begin
readln(y);
if y >= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
Pascal
ввод <span>ReadLn(A1,A2,...AK)
вывод Whrite</span>(A1,A2,...AK)
QBasic
ввод Print
вывод Input
1. 1 байт, 1кб, 1мб, 3500кб, 78мб, 1гб
2. 205312 мб
4.N=2^i
N=17
N~2^5
вообще ближе по значению 2^4, однако лучше перебор, чем недобор.
i=5
Прости, не могу с остальным помочь