Ответы
Ответ дал:
0
program sfsdsd;
var s,a,h:real;
begin
writeln ('Введите длину основания');
readln (a);
writeln ('Введите длину высоты');
readln (h);
s:=(a*h)/2;
writeln ('Площадь треугольника равна : ',s);
end.
var s,a,h:real;
begin
writeln ('Введите длину основания');
readln (a);
writeln ('Введите длину высоты');
readln (h);
s:=(a*h)/2;
writeln ('Площадь треугольника равна : ',s);
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад