fkn+antitotal

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

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

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

Задача 1 Урок 12.1:

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

var i, n: integer;
begin
  n := 29;
  i := 5;

  repeat
    write(i, ' ');
    i := i + 1;
  until(i > n);

  readln;
end.   

КОНСОЛЬ:

5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой"

var n,i,j,m:integer;
begin
  writeln('Vvedite celoe chislo: ');
  readln(n);
  j:=1;
  m:=1;
  while m<n do
  begin
    for i:=1 to j do
      begin
        write(m,' ');
        if(m<n) then m:=m+1;
      end;
    j:=j+1;
    writeln();
  end;


end.     

Консоль:

Vvedite celoe chislo: 
20

1 
2 3 
4 5 6 
7 8 9 10 
11 12 13 14 15 
16 17 18 19 20 20 

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух). ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4

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

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

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

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

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

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

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

var a,i: integer;
begin
a:=1;
repeat
    for i:=1 to 5 do
        write(i,' ');
a:=a+1;
writeln();
until(a>2);
end.

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

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

var a,i: integer;
begin
readln(a);
if a<0 then write('ошибка')
else for i:=1 to a do
        if (i mod 2=0) then
        write(i,' ');
writeln();
end.

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

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

var a,i: integer;
begin
readln(a);
if a<0 then write('ошибка')
else for i:=1 to a do
        write(i,' ');
writeln();
end.