Найти площадь прямоугольника, если известны его периметр и длина одной из сторон

@Миленькая · Регистрация: 15.02.2014

Author24 — интернет-сервис помощи студентам

Напишите программу расчета площади прямоугольника, если известы его периметр и длина одной из сторон. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран./Pascal ABC

@LeoSnack · 03.03.2014, 21:12

Pascal

 Program SPr;
Uses Crt;
Var Str1, Str2, Perimeter: Real;
    S: Real;
 
Begin
 
 ClrScr;
 
   Writeln('Введите известную вам сторону');
     Read(Str1);
 
   Writeln('Введите периметр прямоугольника');
     Read(Perimeter);
 
     Str2:= (Perimeter-(Str1+Str1)) / 2;
      Writeln('Str 2 = ',Str2);
 
     S:= Str1*Str2;
      Writeln('Площадь прямоугольника = ',S);
End.

@Миленькая 2 / 1 / 0 Регистрация: 15.02.2014 Сообщений: 64
		1
	Найти площадь прямоугольника, если известны его периметр и длина одной из сторон 03.03.2014, 20:50. Показов 5169. Ответов 1 Метки нет (Все метки) Напишите программу расчета площади прямоугольника, если известы его периметр и длина одной из сторон. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран./Pascal ABC 0

	03.03.2014, 21:12

Найти площадь прямоугольника, если известны его периметр и длина одной из сторон

Решение