2^33= 8589934592, 8589934592бит = 1073741824 байт = 1024МБ.
Потребуется 2 диска по 600МБ
Помогите сделать линейную программу в аттестате содержатся следующиее оценки 3,4,5,5,4,3,4,5,3,4,3,3,4.5.Найдите средний балл.Сд
Алик карен
В программе для семи оценок (алгоритм линейный)
Эта папка называется КОТАЛОГ
Var a,b: integer;
c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
c:=(a+b)/2;
write('среднее арифметическое: ',c);
end.
Program z1;
var a,b,c,ha,hb,hc,s1,s2,s3:real;
begin
writeln('введите основание и высоту (соответственно) первого треугольника');
readln(a,ha);
s1:=1/2*a*ha;
writeln('площадь первого треугольника = ',s1);
writeln('введите основание и высоту (соответственно) второго треугольника');
readln(b,hb);
s2:=1/2*b*hb;
writeln('площадь второго треугольника = ',s2);
writeln('введите основание и высоту (соответственно) третьего треугольника');
readln(с,hс);
s3:=1/2*с*hс;
writeln('площадь третьего треугольника = ',s3);
end.