Задать вопрос
5 апреля, 09:22

Перепишите программу в тетрадь, исправляя ошибки.

Vap - v, a, b, c;

real;

begin

write ('Введите значения a, b, c: ') ;

readln (a, b, c) ;

v = a * b * c;

s = 2 * (a * b + b * c + a * c) ;

writeln ('Объем параллелепипеда - - ') ;

writeln ('Площадь поверхности параллелепипеда - - ', s) ;

end.

+4
Ответы (1)
  1. 5 апреля, 10:33
    0
    Var v, a, b, c:real;

    begin

    write ('Введите значения a, b, c: ') ;

    readln (a, b, c) ;

    v : = a * b * c;

    s : = 2 * (a * b + b * c + a * c) ;

    writeln ('Объем параллелепипеда - - ') ;

    writeln ('Площадь поверхности параллелепипеда - - ', s) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Перепишите программу в тетрадь, исправляя ошибки. Vap - v, a, b, c; real; begin write ('Введите значения a, b, c: ') ; readln (a, b, c) ; v ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы