fkn+antitotal

Задание 7 Урок 13.1

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

10. Есть программный код:

b := 8; 
c := 9; 
// чему равно  "c" в этой строке ?
a := b + 3;
// чему равно  "c" в этой строке ?
a := с * 9 + c * a; 
b := 200 - a;
// чему равно  b в этой строке ?

1) Ответьте на вопросы в комментариях письменно.

1. с = 9 2. с = 9 3. b= 20

2) Запустите этот код, предварительно объявив используемые переменные, и выведите в консоль с
write() или writeln() значения переменных, в строках, где в комментариях к коду задан вопрос.

Задание 6 Урок 13.1

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

Задание 5 Урок 13.1

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

Задание 4 Урок 13.1

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

Задание 3 Урок 13.1

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

var a, b: integer;

begin
  a := 1;
  b := 1;
  while (a <= 9) do
  begin
    repeat
    begin
      write(a, '*', b, '=', a*b, ' ');
      b := b+1;
    end;
    until (b > 9);
    b := 1;
    writeln();
    a := a + 1;
  end;
  readln();
end.

Задание 2 Урок 13.1

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

var a, b: integer;

begin
  a := 1;
  b := 1;
  while (a <= 9) do
  begin
    while (b <=9) do
    begin
      write(a, '*', b, '=', a*b, ' ');
      b := b+1;
    end;
    b := 1;
    writeln();
    a := a + 1;
  end;
  readln();
end.

Задание 1 Урок 13.1

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

var a, b: integer;

begin
  a := 1;
  b := 1;
  repeat
    repeat
      write(a, '*',b , '=',a*b, ' ');
      b := b + 1;
    until (b > 9);
    b := 1;
    writeln();
    a := a + 1;
   until (a > 9);
   readln();
end.
    

Решение задачи 9 из главы 13.1

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

Решение задачи 8 из главы 13.1

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

1 2 3 4 5
1 2 3 4 5

program Project7;
var i, a: integer;
begin
  a:=1;
  while (a <= 2) do
  begin
     for i:=1 to 5 do
        write(i, ' ');
        i:=i+1;
        writeln();
        a:=a+1;
   end;
  readln();
end.