1) y = 12, x = 3.
2) k = 30.
3) s = 61.
1 символ = 1 бит ,1 байт =8 битам, 1 килобайт =1024 байтам
2048=16777216
Var y,x:double;
BEGIN
x:=1;
y:=5*sqr(x)+10*x+2;
WriteLn(y);
Readln();
END.
кажется так
Var max, min : integer;
a:array[1..5] of integer;
max:=0;
min:=0;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do begin
if a[i]<min then
min:=a[i];
if a[i]>max then
max=a[i];
end;
writeln('Максимальный:',max,',минимальный: ',min);
end.
проверь на паскале только)