Program qwerty;
var a, b, P, S: real;
begin
writeln ('Нахождение периметра и площади прямоугольника');
write ('Введите значение первой стороны прямоугольника: ');
read (a);
write ('Введите значение второй стороны прямоугольника: ');
read (b);
P:=2*(a+b);
S:=a*b;
writeln ('Ответ: периметр = ', P:7:2, ', площадь = ', S:7:2,'.');
<span>end.</span>
П0 sin ИП0 1/x + С/П
Для значения 5 выдаёт "-7,5892425 -1".
- 8. -7 . -6 -5. -4. - 3 , -2 -1 12345
Как я понял это выражение (12+t) в квадрате
var t, S: integer;
begin
t:= 5; // к примеру 5
S:=12+t;
S:=(12+t)*S;
writeln('Ответ: ', S);
end.
Тачпад(мышка), клавиатура