fkn+antitotal

Задача 12 урок 13.1

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

6
3

А для 8:

Задача 11 урок 13.1

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

program U13_1Z11;
var a: integer;
begin
  writeln('vvedite chislo');
  readln(a);
  while a<>0 do
    begin
      if ((a mod 2)=0) then
        writeln('chetnoe')
      else
        writeln('nechetnoe');
      writeln('vvedite chislo');
      readln(a);
    end;
  writeln('poka!');
  readln();
end.

Задача 11 урок 13.1

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

program U13_1Z11;
var a: integer;
begin
  writeln('vvedite chislo');
  readln(a);
  while a<>0 do
    begin
      if ((a mod 2)=0) then
        writeln('chetnoe')
      else
        writeln('nechetnoe');
      writeln('vvedite chislo');
      readln(a);
    end;
  writeln('poka!');
  readln();
end.    

Задача 1 урок 15

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

var a: array [1..7] of integer;
    i: integer;
begin
  a[1] := 1;
  a[2] := 12;
  a[3] := 45;
  a[4] := 6;
  a[5] := 7;
  a[6] := 18;
  a[7] := 99;
  for i:=low(a) to high(a) do
    writeln(a[i]);
  readln();
end.

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

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

program U13_1Z5;
var n, m, i: integer;
begin
  writeln('vvedite m');
  readln(m);
  writeln('vvedite n');
  readln(n);
  while m>=1 do
    begin
     for i:=1 to n do
       begin
         write(i, ' ');
       end;
     m:=m-1;
     i:=1;
     writeln();
    end;
  readln();
end. 

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

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

1 2 3 4 5
1 2 3 4 5

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

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

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

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

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

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

program U13_1Z5;
var a, i: integer;
begin
  writeln('vvedite celoe polozhitelnoe chislo');
  readln(a);
  if (a<=0) then
    writeln('oshibka')
  else
    for i:= 1 to a do
      write(i, ' ');
      i:=i+1;
  readln();
end. 

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

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

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

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

program U13_1Z3;
var a, b: integer;
begin
  a:=1;
  b:=1;
  repeat
      while (b<=10) do
        begin
          writeln(a, '*', b, '=', a*b);
          b:=b+1;
        end;
      writeln();
      a:=a+1;
      b:=1;
  until (a>=10);
  readln();
end.