fkn+antitotal

Задача 3 Урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):

Задача 2 Урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):
?

Задача 1 Урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

Задача 21 Урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:

Задача 20 Урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:

Задача 19 Урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:

Задача 18 Урок 13.1

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

var b,i,s,n: integer;
begin
  writeln('Введите число');
  readln(b);
    s:=0;
    n:=1;
    for i:=1 to b do
      begin
         write(i,' ');
         s:=s+1;
           if (s=n) then
             begin
               writeln();
               n:=n+1;
               s:=0;
             end;
        end;
  readln();
end.   

Задача 7. Урок 11.

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
-С использованием if()
-С использованием if() и break;

1.

Урок 11 Задача 3

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

Решение:

var r:integer;
begin
  r := 35;
  while r <= 117 do
  begin
    r:=r + 1;
    if (r mod 3) = 0 then
      writeln(r, ' ');
  end;
  readln();
end.     

Урок 10.1 Задача 6

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

Решение:

var i:integer;
begin
 
  for i:=35 to 117 do  
    if ((i mod 3) = 0) then  
       writeln(i, ' ');
 
  readln();
end.