Вправа 41. Алгоритми з повтореннями. Цикл із параметром | 8 клас | Бондаренко Пришлите готовую версию

Процедурные, Объектно ориентирование и Проблемные

обьяснение:

Процедурные               Объектно ориентирование            

Паскаль,                          Borland Pascal,

Бейсик,                            Visual Basik,

Си.                                    Delphi,

                                        Lazarus.

Проблемные

SQL,

Perl,

Кобол,

Пролог,

АДА

Разбираешься в компьютерах и играх, но не разбираешься в программирование. Я могу сделать вывод, что ты играл на протяжении 6 лет в игры и собирал себе компьютер для игр

Думаю ты не разбираешься во внутренностях компьютера.

Экзамены перенесли на август, мои тебе советы:

Готовься к ЕГЭ

Смотри видео уроки по профильной математике ЕГЭ от Павла Маслова (Ютуб)

Физику смотри также на Ютубе (Пенкин)

Также могу тебе посоветовать решать каждый день по 15 вариаций заданий, которые ты например выучил решения первого задания матана, решай их как можно больше)

Сдай ЕГЭ

Без него ничего не выйдет

Const m=4; n=15;
var
  i,j,j0: integer;
  a:array[1..m,1..n] of integer;
  jExit,iExit:Boolean;
begin
  Randomize;
  for i:=1 to m do begin
    writeln;
    for j:=1 to n do begin
      a[i,j]:=random(2);
      write(a[i,j]:2)
      end
    end;
  writeln;
  j:=0; jExit:=false;
  repeat
    j:=j+1; i:=1; iExit:=false;
    if a[i,j]=0 then begin
      repeat
        i:=i+1;
        if a[i,j]<>0 then iExit:=true
      until iExit or (i=m);
      if i=m then jExit:=true
      end
    until jExit or (j=n);
  if a[i,j]=0 then writeln('Нулевой столбец ',j)
  else writeln('Нет нулевых столбцов');
end.

Тестовый пример:

 0 1 1 1 1 0 1 0 1 0 0 0 0 0 1
 0 0 1 0 1 0 0 0 1 1 0 0 0 0 0
 1 1 0 0 0 1 0 1 1 1 1 1 0 1 1
 1 1 1 0 1 0 1 0 0 1 0 1 0 1 0
Нулевой столбец 13