1. не более заданного числа n 2, 4, 6,... вычисляет среднее арифметическое число членов последовательности 2. не более 1, 2, 3 заданного числа n ... вычисляет среднее арифметическое число членов последовательности 3 .2, 4, 6, превышающие заданное число n... вычисляет среднее арифметическое число членов последовательности 4. не более заданного числа n 2, 4, 6,... вычисляет совокупность членов последовательности 5. меньше заданного числа n 2, 4, 6,... вычисляет среднее арифметическое число членов последовательности 6. не более заданного числа n 2, 3, 4,... вычисляет среднее арифметическое число членов последовательности.

Управляющий сайт _Портал_
Степень соответствия желаемому поиску в Интернете _Релевантность_
Базовый объект операционной системы Windows _окно_
Документ, взятый из Интернета _Веб-документ_
Сетевая карта _Адаптер_
Глобальная мировая компьютерная сеть _Интернет_
Часть URL адреса _Домен_
Электронная почта на английском языке _Е-mail_
Они бывают людские, природные, экономические, скрытые, аппаратные, программные, информационные, открытые, закрытые _Ресурсы_
Запишите первые буквы каждого термина и вы получите слово _ПРОВАИДЕР_

var 
a, b, c, d: real;

procedure Plo(s: string; x, y, z: real);
var 
sq: real;
begin 
if ((y + z - x) > 0) and ((x + z - y) > 0) and ((x + y - z) > 0) then 
begin   
sq := 0.25 * (sqrt((x + y + z) * (y + z - x) * (x + z - y) * (x + y - z)));   
writeln('Площадь треугольника со сторонами ', s, ' = ', sq:0:3); 
end else writeln('Треугольник со сторонами ', s, ' не существует');
end;

begin 
write('a=');readln(a); 
write('b=');readln(b); 
write('c=');readln(c); 
write('d=');readln(d); 
Plo('a,b,c', a, b, c); 
Plo('a,b,d', a, b, d); 
Plo('a,c,d', a, c, d); 
Plo('b,c,d', b, c, d);
end.