Ответ:
400 Кбайт
Объяснение:
было 2 байта на символ, стало 1 байт на символ, длина уменьшилась вдвое
819200 байт / 2 = 409600 байт
переводим в Кбайты
409600 / 1024 = 400 Кбайт
Var a,b,c,d:real;
begin
writeln('Введите коэффициенты уравнения через пробел');
read(a,b,c);
d:=sqr(b)-4*a*c;
writeln('Дискриминант = ',d:6:2);
readln;
end.
Алгоритм можете составить сами исходя из программы. (Всего лишь замена служебных слов)
Q,w,e - стороны
w:=q+w+e - получение площади
Var a,s: real;
begin
write('длина стороны: ');
readln(a);
s:=a*a*sin(pi/3)/2;
writeln('площадь треугольника = ',s:6:4);
end.
<span>
</span>