{13.1 — 12 Пользователь вводит четное целое число (если нечетное сообщите об ошибке).
Делите это число в цикле на 2 до тех пор пока оно делится,
выводя каждый промежуточный результат}
{13.1 — 10 Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный)
строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)}
{13.1 — 8 Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов.
Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5}
var a,b: integer;
begin
a:=0; b:=1;
repeat
while (a<5) do
begin
a:=a+1;
write(a, ' ');
end;
if (a=5) then
begin
writeln();
a:=a+1;
end;
write(b, ' ');
b:=b+1;
until (b>5) ;
readln();
end.
{13.1 — 7 Модифицируйте предыдущую задачу так, чтобы в случае,
если число удовлетворяет требованиям (целое, положительное),
то на экран выводились четные числа.}
{13.1 — 6 Пользователь вводит целое положительное число,
если оно не соответствует критериям (то есть не является положительным),
выведете сообщение об ошибке,
в противном случае выведете на экран все числа от 1 до введённого пользователем.}
{13.1 — 5 Пользователь вводит первое целое число-ограничитель m.
А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна
выводить все целые числа от единицы до этого числа.}