PASCAL Помогите срочно прошу!
Даны длина и ширина прямоугольника составьте программу вычисления его периметра и площади.
I. Математическая модель:
Дано: A,B - REAL
Найти: P,S - REAL
Формула: -?
II. Алгоритм:
1) Ввести:
2)Вычислить:
3)Вывести:
III. Программа в Паскале:
Ответы
Ответ дал:
0
var a,b,s,p:real;
begin
Write('Введите значения высоты и ширины через пробел: ');
read(a,b,);
S := a*b;
P := (a+b)*2;
write(S:5:2, P:5:2);
end.
Зайдите на этот сайт посмотрите теорию. http://learnpascal.ru
begin
Write('Введите значения высоты и ширины через пробел: ');
read(a,b,);
S := a*b;
P := (a+b)*2;
write(S:5:2, P:5:2);
end.
Зайдите на этот сайт посмотрите теорию. http://learnpascal.ru
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
10 лет назад