fkn+antitotal

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

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

program lesson12_3;
var
  c: char;
begin
    repeat
        writeln('enter number c');
        readln(c);
        if c = '#' then
            break;
        writeln('&');
	until c = '#';
end.

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

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

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

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

program lesson12_1;
var
  i : integer;
begin
  i := 55;
  repeat
      i := i + 1;
      write(i, ' ');
  until i >= 9236;
  readln();
end.

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

У вас есть программа, использующая цикл while:

var
   i: integer;
begin
  i:=1;
  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

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

Имеется программа:

?
var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания

Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

1. Вывод от 5 до 34
2. Набор чисел
3. Перепись с помощью while

У вас есть программа, использующая цикл while:

var
   i: integer;
begin
  i:=1;
  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

{var i: integer;
begin
  i:=1;
  repeat
    write(i, ' ');
    i:=i+5;
  until (i > 100);

  readln();
end.  }


var
   i, a: integer;
begin
  for i:= 1 to 100 do
  if ((i mod 5) = 1) then
  begin
  writeln(i);
  end;
  readln();
end. 

Имеется программа:

var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

{var i: integer;
begin
  i := 5;
  while (i <= 34) do
    begin
    write(i, ' ');
    i := i + 1;
    end;

  readln();
end.}


var i: integer;
begin
  i := 5;
  repeat
    writeln(i);
    i := i + 1;
  until (i > 34) ;
  readln();
end.    

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

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

var a, i: integer;

begin
     i := 35;
     repeat
     if ((i mod 2) = 0) and ((i mod 3) = 0) and ((i mod 6) = 0) then
     begin
     writeln(i);
     end;
     i := i + 1;
     until (i = 117);
writeln('______');
readln();

end.  

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

var a: char;

begin
readln(a);
  while (a <> '#') do
        begin
          writeln('&');
          readln(a);
        end;
  writeln('Konez Programi');
readln();
end.