Регистрация
nodirkamolov
01.12.2021 13:48
Информатика
Есть ответ 👍

Снаписание программы вычисления объёма,площади поверхности,длины рёбер прямоугольного параллепипеда на языке паскаль (всё в одной программе )

207
419
Посмотреть ответы 2

Ответы на вопрос:

Natashhkka
Natashhkka
4,7(70 оценок)
Сорян, если не правильно понял условие program parallepiped; var a,b,c,v,s: real; begin writeln('введите длину рёбер параллепипеда '); read(a,b,c); v: =a*b*c; s: =2*(a*c+c*b+a*b); write('площадь поверхности = ',s,', а объём = ',v);                                       end.              
Damir6565
Damir6565
4,5(2 оценок)

const nn=10; var a: array [1..nn] of integer; i,k: integer; begin  randomize;   k: =0;   for i: = 1 to nn do   begin      a[i]: =random(10)-2;       write (a[i],' ');   end;   for i: = 1 to nn do if (a[i]> 0) then k: =k+1;   writeln;   writeln(k); end.

Популярно: Информатика