Предмет: Информатика,
автор: профессотория
помогите умоляю
номер 4
Приложения:
![](https://files.topotvet.com/i/604/604156c8cc3efb4367d9491a62e3ee63.jpg)
Ответы
Автор ответа:
1
Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: azatbekajhodzaev8
Предмет: Математика,
автор: ivanstopic06
Предмет: Алгебра,
автор: ДарБожий