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

//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

Ольга 2019-05-24 08:23:45

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

Чикаленков Данька · Answer 2 · 2019-05-24 08:13:23+3:00

Чикаленков Данька 2019-05-24 08:13:23

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.

Славян Добриан 2019-05-24 08:14:58

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

Сема Тютюкин 2019-05-24 08:18:52

начальные : 15 , 16,20

Валерий Гладунцев 2019-05-24 08:22:57

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

Стефания Курбалова 2019-05-24 08:31:25

Занимательно, где Вы там нашли массив, хех?

Виктория Шибарская 2019-05-24 08:32:51

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

О проекте

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

Добро пожаловать!