CLS
a:
INPUT "введи основание"; a
IF a<=0 THEN PRINT "не может быть": GOTO a
b:
INPUT "введи высоту"; h
IF h<=0 THEN PRINT "не может быть": GOTO a
S=a*h/2
PRINT "площадь треугольника равна"; S
END
Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.
1 Тб = 1024 Гб = 1048576 Мб
Дискета 1440 Кбайт = 1,4 Мб
1048576 Мб / 1,4 Мб = 748983 дискеты нужно
748983 * 20 грамм = 14979660 грамм весят эти дискеты
14979660 гр / 1000 = 14980 кг / 1000 = 14,98 тонн
приблизительно 15 тонн