profile
Опубликовано 5 лет назад по предмету Информатика от yakimenkomasha

решить по языку Pascal

  1. Ответ
    Ответ дан HRAshton
    const Pi = 3.14;
    var d: Real;
    begin
        writeln('Введите диаметр');
        readln(d);
        writeln('Длина = ', 2*Pi*d/2);
    end.

    Удачи:)
  2. Ответ
    Ответ дан Yegor55
    const
      pi = 3.14;
    var
      d : Real;
    begin
        Write('d: ');
        Readln(d);
        
        Write(Pi * d:0:3);
        Readln;
    end.
Самые новые вопросы