помогите решить задачу в паскале.

Question

помогите решить задачу в паскале.

Н Знаток (372), на голосовании 12 лет назад

как найти площадь квадратной рамки, если внутренняя сторона равна f, а внешняя заданному числу r.

Answer 1

Решение

Program pl;
Var s, r: real;
Begin

Writeln (' вычисления площади квадратной рамки ');
Write ('Введите внешнюю сторону рамки ');
Readln(r);
s: =sqr(r)-25;
Writeln ('s= ', s);
readln;

Answer 2

Program pl;
Var f, r: real;
Begin

Writeln (' вычисления площади квадратной рамки ');
Write ('Введите внешнюю сторону рамки ');
Readln(f);
Write ('Введите внутреннюю сторону рамки ');
Readln(r);
f: =sqr(f)-sqr(r);
Writeln ('s= ', f);
readln;
end;