#1:
begin
var a,b,c,d:real;
write('Введите стороны A B прямоугольника: '); readln(A,B);
write('Введите стороны C D прямоугольника: '); readln(C,D);
write('Площади прямоугольников ',(A*B = C*D)? 'равны':'не равны');
end.
#2:
begin
var a,b,c:real;
write('Введите стоимость трёх покупок: '); readln(A,B,C);
write('Дисконтная карта ', ((B>A) and (C>A+B))? 'получена':'не получена');
end.
#3:
begin
var AB,CD,MN: real;
write('Введите длину отрезков AB,CD,MN: '); readln(AB,CD,MN);
write('Отрезки ',(((AB+CD)>MN) and ((AB+MN)>CD) and ((CD+MN)>AB))? 'могут':'не могут', ' быть сторонами треугольника');
end.
#4:
begin
var A,B:real;
write('Введите сторону первого квадрата: '); readln(A);
write('Введите площадь второго квадрата: '); readln(B);
write('Площади заданных квадратов ', (A.Sqr=B)? 'равны':'не равны');
end.
Файл = в закрепе, также приложен скрин таблицы.
СТОЛБЕЦ ПРОЦЕНТ.
Нам нужно посчитать, сколько "%" одно число (кол-во набранных ) составляет от другого числа (макс. кол-во ).
Чтобы посчитать, сколько "%" одно число составляет от другого, нужно первое число разделить на второе, и потом умножить на 100.
Здесь в формуле на 100 мы не умножаем, т.к. потом мы выбираем формат числа "процентный", и Excel сам умножает числа 0,8; 0,8; 0,85 на 100 соответственно и ставит знак "%".
Формула: D2=C2/B2 ⇒ выбираем формат "процентный"
СТОЛБЕЦ ОЦЕНКА:
В идеале, конечно, нужно знать диапазоны:
"% выполненной работы" - "оценка".
Но конкретно в Вашем случае я написал формулу для столбика "оценка" след. образом: E2=ЕСЛИ(D2=80%;4;ЕСЛИ(D2=85%;5)), потому что диапазоны с 0 до 100 "%" мне неизвестны, если что, подкорректируете.