Найти длину окружности L и площадь круга S заданного радиуса R. (L=2πR; S=πR^2; π=3,14). (Pascal)

Бабла22 Бабла22    3   28.01.2021 23:21    2

Ответы
нануша456 нануша456  27.02.2021 23:22

const pi=3.14;

var R, k: real;

begin

k:=0;

R:=0;

WriteLn('Введите значение R: ');

Read (R);

k:=R;

R:=2*pi*R;

Writeln ('L= ', R);

k:=pi*Sqr(k);

Writeln ('S= ', k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика