var a, b, s, p: real;
begin
write(‘Чему равны стороны прямоугольника: ‘);
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln(‘Периметр прямоугольника: ‘, p);
write(‘Площадь прямоугольника: ‘, s)
end.
Результат работы:
Чему равны стороны прямоугольника: 2 5
Периметр прямоугольника: 14
Площадь прямоугольника: 10
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
import cmath
x = int(input("x = "))
y = int(input("y = "))
print((1 + cmath.sin(cmath.sqrt(x + 1)))/cmath.cos(12 * y - 4))
Обувщик или сапожник, стоматолог, шофёр или водитель