Дан радиус окружности,найти длину окружности и площадь круга на языке программир...

July 2022 1 20 Report

Дан радиус окружности,найти длину окружности и площадь круга на языке программирования Pascal(паскаль)

Answers & Comments

sidorov2002 Var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.

0 votes Thanks 2

sidorov2002 так ?

gleba5555 а там же присвоить значения надо,типо pi:=3,14

sidorov2002 а тогда будет так

sidorov2002 var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.

sidorov2002 ой

sidorov2002 const
pi=3,14 var
r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.

Answers & Comments

Как это решать заменой?...

tex]...

Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результ...

Английский на листке. Помогите решить)...

Найдите область значений функции y=x²-2x-8,где x ε [-1;3]...

Как это решать заменой?...

Ответить на вопросы(Если можно так назвать) 1.Течение модернизма, для которого х...

Задание во вложении, проставить "не"...

Написать программу о нахождении двухзначного числа А.Найти сумму и произведение ...

Задайте формулой линейную функцию,график которой параллелен прямой у= -8х+11 и п...

рекомендуемые вопросы

Helpful Links

Helpful Social