Файловий провідник, живлення, усі програми...
1: 10, 1, 1
2: var
x, y, z: real;
begin
readln (x,y,z);
if (x + y > z) then
begin
if (x + z > y) then
if (y + z > x) then
writeln('треугольник построить можно')
else writeln('треугольник построить нельзя');
end
else writeln('треугольник построить нельзя');
end.
3:
var
x, y, z: real;
begin
readln (x,y,z);
if (x + y > z) and (x + z > y) and (y + z > x) then
writeln('треугольник построить можно')
else writeln('<span>треугольник построить нельзя</span>');
end.
вроде все пашет так)))
Var a,b:real;
begin
read(a,b);
if a>b then
begin
a:=a-b;
b:=2*b+a;
end
else
begin
b:=b-a;
a:=2*a+b;
end;
write(a,' ',b)
<span>end.</span>
29 символов вместе с пробелами значит 29 байт
1 байт = 8 бит
32 Мбит /8 = 4Мбайт
4*60сек*15мин=3600Мбайт=3.51Гбайт