Переделать программу под оператор read program n_1; const pi= 3.14; bar= r,c,s: real begin r:=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:= 2*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы