1. Информатика
  2. Нужно написать программу на

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

fff567 fff567    3   11.03.2019 16:20    1

Ответы
070607 070607  24.05.2020 21:47

var S, p, a, b: real;

begin

  writeln('Введите периметр прямоугольника');

  readln(p);

  writeln('Введите одну из сторон прямоугольника');

  readln(a);

  b:=(p-2*a)/2;

  s:=a*b;

  writeln('Площадь прямоугольника равна ', s);

end. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NameXD NameXD  28.11.2020 11:32
Информатика решить вот такую задачку....
ssamandrakova ssamandrakova  28.11.2020 11:32
1. Что такое компьютер? 2. Что такое компьютерная программа? 3. Что такое системный блок? (+ перечислить, что входит в состав) 4. Что такое средства манипуляции?...
netif1978 netif1978  28.11.2020 11:32
Скажите задание 2а) будет какой ответ? А то два разных получается...
anchousuchixa anchousuchixa  28.11.2020 11:24
нужно составить программы для Python решая задачи 2. Даны три различных числа A, B, C. Выведите на экран значение среднего из них. 4. Даны три числа, два из которых...
lermolen lermolen  28.11.2020 11:24
В матрице K(7, 7) найти и записать в одномерный массив А нечетные элементы среди элементов, сумма индексов которых – четная. Переставить элементы в полученном массиве...
vika2088 vika2088  25.11.2019 16:27
Условие : в автоматизированной информационной системе содержатся анкетные данные сотрудников учреждения.в массиве y(8) содержатся года рождения сотрудников,в массиве...
Елена2028 Елена2028  25.11.2019 16:26
P.s каждая картинка к , 1 картинка 1 1. между населёнными пунк­та­ми а, в, с, d, е по­стро­е­ны дороги, протяжённость ко­то­рых (в километрах) при­ве­де­на в таблице:...
bedboy777 bedboy777  07.09.2019 17:40
1.о каких реках роберт рождественский говорил, что они «…начинаются ручейками. начинаются весело, скользкие камни, раскалывая, как орехи…» 2.найдите изображение аквариумной...
Dhshssh Dhshssh  07.09.2019 17:40
Полученное сообщение , информационной обьем которого равен 32 битам . чему равен этот объём в байтах...
ulyakiissaa ulyakiissaa  12.11.2019 22:31
Как это решать, распишите по действиям var s, n: integer; begin s: =0; n: =1; while sqr(s+2) 125 do begin n: =n*2; s: =s+2; end; write(n) end....

Популярные вопросы