Задать вопрос
23 мая, 10:35

Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга

Сделать нужно в программе Free Pascal

+1
Ответы (1)
  1. 23 мая, 10:41
    0
    Var

    r, p, s:real;

    begin

    write ('Введите радиус окружности: ');

    read (r);

    p:=2*pi*r;

    s:=pi*sqr (r);

    writeln ('Длина окружности L = ', p:0:3);

    writeln ('Площадь круга S = ', s:0:3);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга Сделать нужно в программе Free Pascal ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы