
Kiridar
6 год назад
Найти площадь треугольника ah, ввести нужно в турбо паскале (информатика 9 класс)
ОТВЕТЫ

Фирсович
Jul 26, 2019
Program myprogram2;
var
a,h,s:real;
begin
writeln(Введите длину основания a);
write(a = );
readln(a);
writeln(Введите длину высоты h);
write(h = );
readln(h);
s:=0,5*a*h;
write(Площадь треугольника с основанием ,a, и высотой ,h, равна = ,s);
readln;
readln;
end.
var
a,h,s:real;
begin
writeln(Введите длину основания a);
write(a = );
readln(a);
writeln(Введите длину высоты h);
write(h = );
readln(h);
s:=0,5*a*h;
write(Площадь треугольника с основанием ,a, и высотой ,h, равна = ,s);
readln;
readln;
end.
95
Смежные вопросы: