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

Знания

Информатика

1 ответ:

Портнова Лана [20]4 года назад

0 0

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

Читайте также

дан квадрат со стороной A являестся ли его периметр двухзначным число

Джинн Вулкар [50]

var
a: integer;

begin
readln(a);
if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число')
else writeln('периметр не двузначное число');
end.

0 0

1 год назад

Как называется символьный тип в Python?

Малдав

Fortif-типо токого,как то так

0 0

4 года назад

Помогите пожалуйста) Нужно составить программу,выводящую на экран числа от 1 до 10,по одному числу в строке.

ilya515

На каком языке? напиши и сделаю

0 0

3 года назад

По заданному алгоритму составь блок схему

Галина Зародыш-Ау... [50]

вроде как-то так

удачи)))))))))))))))))))))))))))))

0 0

4 года назад

Дана переменная N. Составьте программу, увеличивающую значение переменной N на единицу, если эта переменная положительная и умен

ЗГОТ

var n:integer;

begin

writeln ("введите число N");

read(n);

if n>0 then n:=n+1;

if n<0 then n:=n-1;

writeln (n);

end.

0 0

1 год назад