Площадь параллелограмма:
program chet;
var
sq, a , b : integer;
begin
writeln('Введите стороны параллелограмма ');
readln(a,b);
sq := a * b;
writeln('Площадь параллелограмма равна ', sq);
end.
Площадь трапеции:
program chet;
var
sq,h, a , b : real;
begin
writeln('Введите длину оснований ');
readln(a,b);
writeln('Введите высоту трапеции');
read(h);
sq := (a+b)/2 * h;
writeln('Площадь трапеции равна ', sq);
end.
Площадь круга:
program chet;
const
PI = 3.14;
var
sq,r : real;
begin
writeln('Введите радиус круга');
readln(r);
sq := PI * sqr(r);
writeln('Площадь круга равна ', sq);
end.
И площадь ромба:
program chetdsa;
var
sq,d,g : real;
begin
writeln('Введите чему равны диагонали ромба');
readln(d,g);
sq := (d*g)/ 2;
writeln('Площадь ромба равна ', sq);
end.
2. exex.txt
Объяснение:
Маска: *ex??.tx*
Расширение файла (после точки) должно иметь вид tx* (буквы tx и после них любая последовательность символов). Файлы 1. exex.tex и 3. my_ex.tex не подходят под это условие, т.к. у них в расширении между буквами tx стоит буква e.
Имя файла (до точки) должно иметь вид *ex?? (любая последовательность символов, буквы ex и после них два любых символа). Файл my_ex.txt не подходит под это условие, т.к. после букв ex стразу стоит точка и начинается расширение, т.е. нет указанных в маске двух любых символов.
Файл 2. exex.txt подходит под все условия (перед первыми буквами ex ничего нет, т.е. это пустая последовательность символов; после первых букв ex идут две буквы ex, т.е. это два любых символа; расширение имеет вид txt, т.е. это буквы tx и буква t - любая последовательность символов)
