asskokov
?>

Program gp; uses crt; var r: real; begin write('ввидите радиус шара : '); readln(r); writeln('обьем шара: ', 4/3*pi*r*r*r: 0: 2); writeln('площадь шара : ', 4*pi*r*r: 0: 2); readln; end. построить блок схему​

Информатика

Ответы

dima8585
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20
moidela87

Возникновение орнамента уходит своими корнями вглубь веков, впервые его следы запечатлены в эпоху палеолита. В культуре неолита орнамент достиг уже большого разнообразия форм и стал доминировать. Со временем орнамент теряет своё господствующее положение и познавательное значение, сохраняя, однако, за собой важную упорядочивающую и украшающую роль в системе пластического творчества. Каждая эпоха, стиль, последовательно выявившаяся национальная культура вырабатывали свою систему, поэтому орнамент является надёжным признаком принадлежности произведений к определённому времени, народу, стране. Несомненно, также, что орнаментальная история имеет свои константы, знаки, которые, не изменяясь со временем, принадлежат различным культурам, стилям и культурным эпохам. К таким знакам относится, например, колесо. Особенного развития достигает орнамент там, где преобладают условные формы отображения действительности: наДревнем Востоке, в доколумбовой Америке, в азиатских культурах древности и средних веков, в европейском средневековье. В народном творчестве, с древнейших времён, складываются устойчивые принципы и формы орнамента, во многом определяющие национальные художественные традиции. Например, в Индии сохранилось древнее искусство ранголи (альпона)- орнаментальный рисунок — молитва.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Program gp; uses crt; var r: real; begin write('ввидите радиус шара : '); readln(r); writeln('обьем шара: ', 4/3*pi*r*r*r: 0: 2); writeln('площадь шара : ', 4*pi*r*r: 0: 2); readln; end. построить блок схему​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

А Дзукаев1562
Karpova
Zibuxin3
tatry2005
Николаев
Ligaevruslan
sapelnikovk-74
emilmishin1032
pozhidaevgv
drontox1031
mototeh69
makeeva-nataliya60
alex091177443
impuls20125948
araqsyabadalyan1988