Переделать программу под оператор read

program n_1;

const pi = 3.14;

bar = r, c, s: real

begin

r:=5.4;

c: = 2pir;

s:=pirr;

writeln ('c=', c:6:4) ;

writeln ('s=', s:6:4)

end

Question

Информатика

Доримедонт

21 августа, 21:23

Переделать программу под оператор read

program n_1;

const pi = 3.14;

bar = r, c, s: real

begin

r:=5.4;

c: = 2pir;

s:=pirr;

writeln ('c=', c:6:4) ;

writeln ('s=', s:6:4)

end

+3

Ответы (1)

Знаете ответ на вопрос?

Сергеич · Answer 1

Program n_1;

var r, c, s: real;

begin

readln (r) ;

c: = 2*pi*r;

s:=pi*r*r;

writeln ('c=', c:6:4) ;

writeln ('s=', s:6:4)

end.

Пример:

5

c=31.4159

s=78.5398

Переделать программу под оператор readprogram n_1;const pi = 3.14;bar = r, c, s: realbeginr:=5.4;c: = 2*pi*r;s:=pi*r*r;writeln ('c=', c:6:4) ;writeln ('s=', s:6:4)end

Переделать программу под оператор read

program n_1;

const pi = 3.14;

bar = r, c, s: real

begin

r:=5.4;

c: = 2pir;

s:=pirr;

writeln ('c=', c:6:4) ;

writeln ('s=', s:6:4)

end