Question

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

Answer 1

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

7bae605b72e25ec10acfa08e1e1c35a5.txt

Answer 2

Весь массив в текстовом файле.Остается только открыть копировать в паскаль и поставить числа

Answer 3

исходные : 15 , 16,20

Answer 4

в текстовом файле массив,просто подставь туда числа,куда подставлять по русски написанно)

Answer 5

Интересно, где Вы там обнаружили массив, хех?

Answer 6

Ну ошибся,в чем проблема? все ведь правильно)

Answer 7

//Pascal ABC.NET v3.1 сборка 1172

Var 
a,b,c:real;
begin
 read(a,b,c);
 writeln('S=',2*(a*b+b*c+a*c));
 writeln('V=',a*b*c);
end.

Пример ввода:
1
2
3
Пример вывода:
S=22
V=6

7bae605b72e25ec10acfa08e1e1c35a5.txt

Answer 8

тут можно было и не указывать вид паскаля, ведь написано в старом стиле. указывать надо когда в стиле .Нет написано