fkn+antitotal

Задача 13 Урок 11:

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
?
1
46541
(используйте опеции div и mod, подразумевается решение через цикл )

ВАРИАНТ 1:

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до

9.

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран)

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

var a:integer;

begin
  writeln('Vvedite chetnoe celoe chislo: ');
  readln(a);
  if(a mod 2 = 1) then writeln('Chislo ne chetnoe. Oshibka!')
  else
    repeat
      a:=a div 2;
      writeln(a);
    until (a mod 2 = 1);
end. 

Консоль:

Vvedite chetnoe celoe chislo: 
8

4
2
1

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

var a:integer;
begin
  writeln('Vvedite celoe chislo: ');
  readln(a);
  while a<>0 do
  begin
    if(a mod 2=0) then writeln('chislo chetnoe.')
    else writeln('chislo nechetnoe.');
    writeln('Vvedite celoe chislo: ');
    readln(a);
  end;
end. 

Консоль:

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

var m,n,i,j:integer;
begin
  m:=4;
  n:=9;
  for i:=1 to m do
  begin
    if(i mod 2<>0) then n:=n div 2
    else n:=9;
    for j:=1 to n do
      write(j,' ');
    writeln();
  end;
end. 

Консоль:

1 2 3 4 
1 2 3 4 5 6 7 8 9 
1 2 3 4 
1 2 3 4 5 6 7 8 9 

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

var m,n,i,j:integer;
begin
  m:=4;
  n:=6;
  for i:=1 to m do
  begin
    for j:=1 to n do
      write(j,' ');
    writeln();
  end;
end.

Консоль:

1 2 3 4 5 6 
1 2 3 4 5 6 
1 2 3 4 5 6 
1 2 3 4 5 6 

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

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

Консоль:

1 2 3 4 5 
1 2 3 4 5 

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

var i,a:integer;
begin
  a:=1;
  writeln('Vvedite celoe chislo: ');
  readln(a);
  if(a<=0)then writeln('Oshibka!')
  else
    for i:=1 to a do
      if(i mod 2 =0)then write (i,' ');
end.  

Консоль:

Vvedite celoe chislo: 
6

2 4 6 

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