Предмет: Информатика,
автор: Кристиночка2003
Пожалуйста, помогите написать на языке Паскаль
Приложения:
![](https://files.topotvet.com/i/104/104137c6130cd58c08d70dfa4ebc54eb.jpg)
Ответы
Автор ответа:
1
Ответ:
program zadacha;
var
a,b,d,s,p:real;
begin
Writeln('Введите стороны а и b');
Readln(a,b);
d:=sqrt(sqr(a)+sqr(b));
s:=a*d;
p:=2*(a+b);
Writeln('Периметр прямоугольника P = ',p:5:2);
Writeln('Площадь прямоугольника S = ',s:5:2);
readln;
end.
Фото это результат программы(консоль) з любыми подставлеными значениями.
Приложения:
![](https://files.topotvet.com/i/c6f/c6f7d5265d93fa54dab2aee13e8b18c7.jpg)
Похожие вопросы
Предмет: Литература,
автор: suxari285
Предмет: Математика,
автор: nikolaytret
Предмет: Геометрия,
автор: MMMMmmmmmmk
Предмет: Литература,
автор: Аноним
Предмет: Алгебра,
автор: lizochkapavlov