ДАЮ 15 баллов срочно помогите (фотка)

Question

ДАЮ 15 баллов срочно помогите (фотка)

---

Comments

паскаль десяти летней давности скорее

---

воп щем мне надо просто составить алгоритм и написать систему для него там Var a,b,c,d:real;

---

begin; и т д

---

вопщем я понял никто не знает -_-

---

-_-

---

эм я тебя не понимаю

Answer 1

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

Comments

во

---

не знаешь как остальные 2 сделать?

---

В первом задание условие непонятно написано. Там по условию задачи 4 натуральных чисел. А в качестве переменных указаны А и В. так четырех чисел надо или Двух?

---

2 числа

---

мне надо только 3 сделать

---

???