Задать вопрос
25 июля, 21:44

1. Вычеслить обьем куба, если длина ребра задана

2. Вычеслить площадь поверхности кирпича, если длины ребер заданы

3. Вычеслить длину окружности, если радиус задан.

+1
Ответы (1)
  1. 26 июля, 00:08
    0
    1)

    var

    V, a: integer;

    begin

    write ('Введите длину ребра: ') ;

    readln (a) ;

    V:=a*a*a;

    writeln ('Объём куба: ', V) ;

    end.

    2)

    var

    a, b, c, S: integer;

    begin

    writeln ('Введите длины ребер:') ;

    readln (a, b, c) ;

    S:=2*a*b+2*a*c+2*b*c;

    writeln ('Площадь поверхности кирпича: ', S) ;

    end.

    3)

    var

    r, l: real;

    begin

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

    readln (r) ;

    l:=2*Pi*r;

    writeln ('Длина окружности: ', l) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Вычеслить обьем куба, если длина ребра задана 2. Вычеслить площадь поверхности кирпича, если длины ребер заданы 3. Вычеслить длину ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы