Напишите программу. Даны стороны прямоугольника а и b. Найти его периметр

Информатика

Ответить

Ответы

artemiusst

30.06.2020

Program ;Var P,a,b: Real;Begin Writeln('Введите стороны прямоугольника. '); Write('Введите сторону a: '); Readln(a); Write('Введите сторону b: '); Readln(b); P:=2*(a+b); Writeln('Периметр прямоугольника равен: ',P);end.
Напишите программу. Даны стороны прямоугольника а и b. Найти его периметр