fkn+antitotal

Урок 13.1 Задача 10

M раз выведете на экран числа от 1 до N с помощью вложенных циклов.

var
  n,m,i,j:integer;
begin
  writeln('vvedite 2 chisla N i M: ');
  readln(n,m);
  while i<=n do
    begin
      j:=1;
      while j<=m do
        begin
          write(j, ' ');
          j:=j+1;
        end;
      writeln();
      i:=i+1;
    end;
    writeln();
  readln();
end.

Урок 13.1 Задача 8

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

begin
  for i:= 1 to 2 do
  begin
    for j:=1 to 5 do
    begin
      write(j, ' ');
    end;
    writeln();
  end;


  writeln();
  writeln('<<Konec>>');
  readln();
end.

Урок 13.1 Задача 7

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все четные числа от 1 до введённого пользователем.

Урок 13.1 Задача 6

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

Урок 13.1 Задача 5

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.

Урок 13.1 Задача 4

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

Урок 13.1 Задача 3

Выведите на экран таблицу умножения используя только циклы вида repeat/until

var i, j: integer;
begin
  i:=1;

  while i<10 do
    begin
      j:=1;
      repeat
        write(i, 'x', j, '=',i*j, ' ');
        j:=j+1;
      until (j=9) ;

    i:=i+1;
    writeln();
    end;

  writeln();
  writeln('<<Konec>>');
  readln();
end.
      

Урок 13.1 Задача 2

Выведите на экран таблицу умножения используя только циклы вида while

var i, j: integer;
begin
  i:=1;

  while i<10 do
    begin
      j:=1;
      while j<10 do
      begin
        write(i, 'x', j, '=',i*j, ' ');
        j:=j+1;
      end;
    i:=i+1;
    writeln();
    end;

  writeln();
  writeln('<<Konec>>');
  readln();
end. 

Урок 13.1 Задача 1

Выведите на экран таблицу умножения используя один цикл while и один repeat-until

var i, j: integer;
begin
  i:=1;
  repeat
    j:=1;
    repeat
      write(i, 'x', j, '=',i*j, ' ');
      j:=j+1;
    until j>9;
    i:=i+1;
    writeln();
  until i>9 ;
  writeln();
  writeln('<<Konec>>');
  readln();
end.

Урок 12.1 Задача 7

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.