Даны две стороны прямоугольника a и b. Найти его периметр P и площадь S: (P = 2*(a + b) , S=a2) Составить алгоритм на языке блок-схем и написать программу на языке Паскаль
Ответы
Ответ дал:
18
var
a, b, S, P: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
p := 2 * (a + b);
write('Площадь прямоугольника -- ', s, '; Периметр прямоугольника -- ', p); end.
a, b, S, P: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
p := 2 * (a + b);
write('Площадь прямоугольника -- ', s, '; Периметр прямоугольника -- ', p); end.
Приложения:
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
2 года назад
8 лет назад