Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Паскаль, пожалуйста помогите.
Составить программу.
Задача: Найти поверхность и объём прямого параллелепипеда.

Ответ оставил Гость

program ololo;uses crt;var   w:integer;   a,s,b,c,v:real;beginrepeatWriteln();Writeln();Writeln(Ввод значений сторон - 1);Writeln(Вычислить объем - 2);Writeln(Вычислить площадь - 3);Writeln(Завершить программу -4);Writeln(_________________________);Readln(w);case w of1:beginclrscr;  Writeln(Ввод стороны A);  Readln(a);  Writeln(Ввод стороны B);  Readln(b);  Writeln(Ввод сторны C);  Readln(c);  end; 2:beginclrscr;  v:=a*b*c;  Writeln(Объем фигуры равен =,v);  end; 3:beginclrscr;   s:=2*((a*b)+(b*c)+(a*c));   Writeln(Площадь фигуры равна =,s);  end;  end;until w=4;end.