С редактора презентаций Петя решил создать слайд-шоу со звуковым сопровождением. В слайд-шоу последовательно воспроизводится 10 слайдов с неповторяющимися изображениями, размером 1024 х 512 точек, закодированных с использованием цветовой палитры, содержащей 65 563 цвета. Каждый слайд проигрывается 4 секунды. Переключение слайдов выполняется мгновенно. На протяжении всего слайд-шоу проигрывается моноаудиофайл, кодированный с частотой дискретизации 32 000 Гц при глубине звука 16 бит. Известно, что сжатие изображений и звука не производилось, а вся служебная информация об организации слайд-шоу занимает 10 Кбайт. Сможет ли Петя сохранить своё слайд-шоу на флешке ёмкостью 2 Гбайта, если известно, что она уже заполнена на 90%? Укажите размер слайд-шоу в килобайтах.
var
a,b,c,p,s:real;
begin
Writeln('Введите через пробел стороны треугольника: ');
Read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Площадь треугольника равна ',s)
end
else Writeln('Невозможно построить треугольник')
end.
Тестовые решения:
Введите через пробел стороны треугольника:
10 15 13.6
Площадь треугольника равна 66.3272183948641
Введите через пробел стороны треугольника:
5 8 20.4
Невозможно построить треугольник