Меню сайта

Задача №3
Даны стороны прямоугольник —aи —b. Найти его площадьS= —a*bи периметр —P —= 2*(a —+ —b).
Program ploshad-
Uses crt-
Var a,b,P,S :real-
Begin
Clrscr-
Writeln(‘введите сторону прямоугольника а‘)- readln(a)-
Writeln(‘введите сторону прямоугольника b‘)- readln(b)-
S:=a*b-
Writeln(‘Площадь равен: ‘,S:5:3)-
P:=2*(a+b)-
Writeln(‘Периметр равен: ‘,P:5:3)-
readln-
End.
Категория: Линейные программы | Дата: 29.11.12

Меню раздела
Блок