Ответы
Ответ дал:
0
var
a, b, c, p: Integer;
begin
Write ('Введите стороны треугольника: ');
Read (a, b, c);
p := a + b + c;
WriteLn ('Периметр = ', p);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад