abilgaziev1
31.08.2020 03:44

Дан двумерный массив размерностью 6х5, заполненный целыми числами
(заполнять массив любым удобным Сформировать одномерный
массив, каждый элемент которого равен количеству элементов
соответствующей строки, меньших данного числа N (N задает пользователь).

Каждый изначальный двумерный массив должен
так же выводиться на экран

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
polinabojko45
23.01.2023 21:13
1. компьютерная графика  – это наука, один из разделов информатики, изучающая способы формирования и обработки изображений с компьютера. 2. ве́кторная гра́фика  — способ представления объектов и изображений в  компьютерной графике, основанный на описании элементарных объектов, обычно называемых  примитивами, таких как: точки, линии,  сплайны,  кривые безье, круги и окружности,  многоугольники. объекты векторной графики являются графическими изображениями объектов. термин "векторная графика" используется для пояснения различий от  растровой графики, в которой изображение представлено в виде графической матрицы. 3. плоттер  (графопостроитель) — устройство для автоматического вычерчивания с большой точностью рисунков, схем, сложных чертежей, карт, трехмерных изображений и другой графической информации на бумаге размером до a0. так же как и у принтеров, изображение на бумаге формируется при печатающей головки.
0,0(0 оценок)
Ответ:
enigma75
25.02.2021 21:33

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  p := 1;//начальное значение

  for i := 1 to n do  

     p := p * i;

  writeln(p);

end.  

2) цикл while

program p_while

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  while i <= n do  

  begin

     p := p * i;

     i := i + 1;

 end;

 writeln(p);

end.  

3) цикл until

program p_until

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  repeat

     p := p * i;

     i := i + 1;

  until i > n;

  writeln(p);

end.  

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота