Пожалуйста помогите алгебрологическое програмирование 1/2(a+b)h решите
Пожалуйста помогите алгебрологическое програмирование 1/2(a+b)h
решите
Гость
Ответ(ы) на вопрос:
ГостьProgram z10; Var a,b,h:integer; s:real;Begin write('Введите A = '); readln(a); write('Введите B = '); readln(b); write('Введите H = '); readln(h);
s:=1/2*(a+b)*h; writeln('Ответ = ', s);End.
Не нашли ответ?
Похожие вопросы