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

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.

Question

Информатика

Милослава

30 мая, 21:02

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

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.

+2

Ответы (1)

Знаете ответ?

Онуфрий · Answer 1

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.