fkn+antitotal

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

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

  program project1;
  var ch:char;

  begin
    repeat
      write('Vvedite simvol: ');readln(ch);
      writeln('&');
      if(ch='#')then
        exit;
    until (ch='#');
  readln();
  end. 

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

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

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

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

program project1;
var numb:integer;

begin
  numb:=55;
  repeat
    numb:=numb+1;
    write(numb,' ');
  until (numb>9235);
readln();
end.                      

Урок 11 задача 16

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Задание 9 Урок 13.1

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

var i,j,n,m: integer;
begin
writeln('vvedite kolichestvo raz');
   readln(m);
writeln('vvedite do kokogo chisla');
   readln(n);

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

Задание 7 Урок 13.1

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

1 2 3 4 5
1 2 3 4 5

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

Задание 7 Урок 12.2

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

var   a,i:integer;
begin
   writeln('vvedite chislo');
   readln(a);

   while (a > 0) do
   begin
      for i:=1 to a do
         if((i mod 2) = 0) then
         write(i, ' ');
      writeln();

     writeln('vvedite chislo');
     readln(a);

    end;

   writeln('konec!');
   readln();
end. 

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

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

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

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

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