Program ploshad;
uses crt;
var a,b,c:real;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
If (a<=0)or(b<=0) then
write('Сторона не может быть отрицательной, либо равна нулю')
else
c:=a*b;
writeln('Площадь квадрата, с заданными параметрами равна - ',c);
c:=a*b/2;
writeln('Площадь прямоугольного треугольника, с заданными параметрами равна - ',c);
<span>end.
Это лишь для квадрата и прямоугольного треугольника :-)</span>
Что с полученными ответами нужно сделать? Написать в файл какой то? В разные строчки (writeln) или в одну через пробел?
Решение показано в прилагаемом файле. Формулы:
Для столбца B: =ФАКТР(A3)
Для столбца C: =СТЕПЕНЬ(LN(2);A3)
Для столбца D: =СТЕПЕНЬ($B$1;A3)
Для столбца E: =C3/B3*D3
А можно и не расписывать всё отдельно, а сразу вычислять в столбце B очередное слагаемое.