4 года назад

Pascal. Вычислить объем цилиндра, вписанного в правильную шестиугольную призму, у которой каждое ребро равно a.

Знания

Информатика

1 ответ:

murchik1980 [2]4 года назад

0 0

===== PascalABC.NET =====

begin

var a := ReadReal('Введи длину ребра');

var v := Pi * a ** 3 / (4 * Tan(Pi / 6));

Writeln('V = ',v)

end.

Читайте также

Откройте текстовый документ из файла задание 4.3.4.docx , который содержится в папке Глава/Пункт 4.3. Замените все слова компьют

Гордюд [50]

Это на компе надо делать
Эт училка еб*нутая ,передай ей

0 0

4 года назад

Как перенести презентацию с видео (музыкой ) На флешку? Была ситуация,что сделала презентацию с видео и перенесла на флешку.Дома

Дарья Локтева [24]

1 создаёшь на флешке папку.
2. кидаешь туда все файлы, включая саму презентацию.
3. идёшь в колледж.
4. показываешь презентацию.

0 0

4 года назад

1. За минимальную единицу измерения количества информации принимают: 1) байт 2) пиксель 3) бит 4) бот 2. Шахматная доска состоит

Айдамир2000

1. 3)

2. 3) номер столбца или строки от 0 до 7, 7 в двоичном 111, 3 бита т.е. поле - это номер строки + номер столбца = 3+3 = 6 бит

3. 4) в байте 8 бит, 32/8

4. 4)

5. 2)

6. 3)

7. 3)

8. 1)

9. 4)

10. 1)

11. 4)

12. 2)

13. 3)

14. 3)

15. 3)

16. 4)

17. переключения между запущенными приложениями

18. C:\DAY\GAMES\tetris.com

19. txt

20. текстовые редакторы

21. C:\MY\GAMES\lines.exe

0 0

4 года назад

Найти наибольший элемент двумерного массива. В паскале. Обязательно использовать функцию или процедуру

Дьеьегей

Const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
Max:integer;

procedure p_max(input_mass:integer);
begin
if input_mass>Max then
Max:=input_mass;
end;

//Заполняем массив
procedure zapolnenue;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
  a[i,j]:=Random(1000);
end;

begin
Randomize;
zapolnenue;

writeln('Массив:');
for i:=1 to n do
begin
   for j:=1 to n do
   begin
    write(a[i,j],' ');
    p_max(a[i,j]);
   end;
   writeln;
end;
writeln;

writeln('Max = ',Max);
end.

0 0

4 года назад

В массиве из 10 целых чисел подсчитать сумму элементов, стоящих правее минимального.Написать программу на языке Паскаль.Помогите

Юля18

Var a: array [1..10] of Integer;
i, min, sum: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(50);
writeln('[', i, '] => ', a[i]);
end;
min := a[1];
for i := 2 to 10 do
if (min > a[i]) then min := a[i];
i := 1;
while ((i <= 10) and (a[i] <> min)) do
begin
sum := sum + a[i];
inc(i);
end;
writeln(sum);
<span>end.</span>

0 0

4 года назад