Question

Найдите площадь круга. Радиус вводится с клавиатуры. Записать все в паскаль

Answer 1

PROGRAM KRUG;

VAR R,S:REAL;

BEGIN

R:=1;

S:3.14*R*R;

WRITE LN(S)

END.

Answer 2

program Krug;
var r,s:real;
begin
Writeln('Введите радиус круга:');
read(r);
s:=3.14*r*r;
Writeln('Площадь круга:',s);
end.
или же так

Answer 3

Так

Answer 4

Поставь спасибо плиз)

Answer 5

S=pr^2 это твой ответ

Answer 6

и мне)