1составить программку похождения площади и периметра прямоугольника, если знамениты стороны "А"

1составить программу похождения площади и периметра прямоугольника, если известны стороны "А" и "Б"
2составить программку похождения среднего арифметического 2-х чисел "А" и "Б"
3) вычислить:
начало
ввод х,у
с:=корень х, у
с:=2*с
вывод с
конец

х=3
у=4

Задать свой вопрос
1 ответ
1)
program p1;
var a,b,p,s:integer;
begin
WriteLn('Введите сторону a');
ReadLn(a);
WriteLn('Введите сторону b');
ReadLn(b);
p:=(a+b)*2;
s:=a*b;
WriteLn('Периметр равен ',p);
WriteLn('Площадь одинакова ' ,s);
end.
2)
program p1;
var a,b:integer;
s:real;
begin
WriteLn('Введите число a');
ReadLn(a);
WriteLn('Введите число b');
ReadLn(b);
s:=(a+b)/2;
WriteLn('Среднее арифметическое ' ,s);
end.
3)
"с:=корень х, у" - нет деянья меж x и y.


, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт