Меню сайта

Задача №21

Однасторона прямоугольника на 5 см.длиннее другой, а сумма их длин равна 17 см. Найти стороны этого прямоугольника.

uses crt-

varsumma,raz,st:real-

storona1,storona2:real-

begin

ClrScr-

writeln(‘Введите сумму длин сторон прямоугольника’)-

readln(summa)-

writeln(‘Введите на сколько одна сторона большедругой’)-

readln(raz)-

st:= (summa — raz)/ 2-

storona1:= st-

storona2:= st +raz-

write (‘ширина-‘,storona1:7:2,’см.’)-

write (‘длина-‘,storona2:7:2,’см.’)-

end.

Категория: Линейные программы | Дата: 30.11.12

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