fkn+antitotal

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

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

Решение:

program u13z09;
var i,j,n,m: integer;
begin
  writeln('vvedite m and n');
  readln(m,n);
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      write(j, ' ');
    end;
    writeln();
  end;
  readln();
end.

Консоль:

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

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

	
1 2 3 4 5
1 2 3 4 5

Решение:

program u13z08;
var i,j: integer;
begin
  for i:=1 to 2 do
  begin
    for j:=1 to 5 do
      write(j, ' ');
    writeln();
  end;
  readln();
end.

Консоль:

1 2 3 4 5
1 2 3 4 5

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

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

Решение:

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

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

Решение:

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

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

Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

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

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

Решение:

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

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

Решение:

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

Консоль:

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

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

Решение:

program u13z02;
var i,j: integer;
begin
  i:=1;
  while i<=9 do
  begin
    j:=1;
    while j<=9 do
    begin
      writeln(i,'x',j,' = ',i*j);
      j:=j+1;
    end;
    i:=i+1;
  end;
  readln();
end.

Консоль:

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

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

1x1 = 1
1x2 = 2
......

Решение:

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

Консоль:

Задача 1. Урок 10.1.

Выведите на экран, все числа от 35 до 64.

var i:integer;
begin
  for i:=35 to 64 do
  write(i,'  ');

  readln();
end.

Консоль:

35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64