Program up1;
var q,w,e:integer;r:real;
begin
write('введите длинну оснований трапеций');
read(q,w);
write('введите высоту трапеции');
read(e);
r:=0.5*e(w+q);
write('S=',r);
end.
Var
a,b,c:real;
begin
Writeln('Введите стороны треугольника');
Readln(a,b,c);
Writeln('P =',a + b +c);
end.
<u>Пример:</u>
Введите стороны треугольника
1 2 3
P =6
Кодирование, используемое в печатных текстах, представляет собой закрепление за буквами символов ( кодов ). Есть множество кодировок, о них вы можете прочитать на предназначенных для этого ресурсах.
"Если спрайт касается желтого цвета, то он должен сказать "Светит солнце!" или "Идёт дождь!"