Перепишите программу в тетрадь, исправляя ошибки. 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.

почемучка105 почемучка105    2   21.09.2019 11:50    0

Ответы
Давиденко Давиденко  08.10.2020 07:03
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика