Нужно написать программу...

Тема в разделе "Информатика", создана пользователем MITEK, 2 янв 2010.

  1. MITEK

    MITEK New Member

    Нужно написать программу на языке Паскаль! Задание: известен периметр прямоугольника и одна сторона из его сторон. Найти площадьпрямоугольника?
     
  2. Barbos

    Barbos New Member

    var S, p, a, b: real;
    begin
      writeln('Введите периметр прямоугольника');
      readln(p);
      writeln('Введите одну из сторон прямоугольника');
      readln(a);
      b:=(p-2*a)/2;
      s:=a*b;
      writeln('Площадь прямоугольника равна ', s);
    end. 
     

Поделиться этой страницей

Наша группа