Да, поместятся.
2 ГБ - 2000 мб.
151*3=453 мб.
Поместится :)
1. Program kek;
var y.x,c,d:real;
begin
readln(c);
readln(x);
readln (d);
y:= c+d-sqrt(sqr(c)+sqr(d))/abs(x)+d
writeln ('y= ', y);
end.
2. Program lul;
var t,p,x,y:real;
begin
readln(x);
readln(p);
readln(y);
if p<0 then t:=x+y else t:=x-y;
write ('t= ', t);
end.
3. Извини не знаю, надеюсь хоть с задачами помог :D
1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.
1) - основание минимальное =6
2) 10011100 - вариант 1
3) 46(10) = 56(8) -> 4 вариант
4) 46(10) = 2Е(16) - 2 вариант
5) 46(10) = 101110(2) - 3 вариант
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.