По трем сторонам - формула Герона.
var a,b,c,p:real;
begin
write('Введите стороны: ');
readln(a,b,c);
p := (a + b + c) / 2;
writeln('Площадь равна ', sqrt(p * (p - a) * (p - b) * (p - c)):9:4);
end.
А через основание и высоту (твоя формула):
var a,h:real;
begin
write('Введите длину основания и высоты, проведенной к нему: ');
readln(a, h);
writeln('Площадь равна: ', (a * h) / 2:9:4);
:9:4 -- это такой оператор, который выводит число в формате с фиксированной точкой и 4 знаками после запятой.
1. В цикле вычисляется количество элементов массива Dat, которые больше 25. Таких элементов 6 ⇒ значение переменной m, которое будет выведено на экран: = 6.
2. В цикле определяется максимальное количество командировок и последний (>=) номер месяца, на который пришлось это максимальное количество ⇒ m=8; month=11. Значение, которое будет выведено на экран: 11.
Думаю тут имеется в виду 16 цветов. Для кодирования 16цветного изображения требуется
4 бита на 1 пиксел изображения. 2 в 4 степени=16. Объем необходимой видео памяти =640*480*4= 1 228 800 байт т.е примерно 1,23 Мегабайта следовательно памяти недостаточно.
Тогда вот, все по букве задания
var
s : string;
t : char;
i : integer;
begin
readln (s);
read (t);
i := 1;
while (i <= length (s)) do
begin
if s[i] = t then delete (s, i, 1)
else i := i + 1;
end;
writeln (s);
<span>end.</span>
