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

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

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

С использованием if()
С использованием if() и break;

1 вариант:

program Project1;
var a: integer;
begin
  a := 1; // любое значение, чтобы цикл мог начаться

  while (a <> 22) do // заголов цикла с провекой логического выражения
  begin
    writeln('vvedite celoe chislo:'); // приглащаем пользователя ввести число
    readln(a);   //считываем его из потока ввода
    if (a <> 22) then
      writeln(#); // выводим пользователю очередной ответ
  end;


  readln(); // удерживаем консоль
end.                                                              

2 вариант:

 program Project2;
var a: integer;
begin
  a := 1; // любое значение, чтобы цикл мог начаться

  while (a <> 22) do // заголов цикла с провекой логического выражения
  begin
    writeln('vvedite celoe chislo:'); // приглащаем пользователя ввести число
    readln(a);   //считываем его из потока ввода
    if (a = 22) then
      break;
    writeln(#);
  end;


  readln(); // удерживаем консоль
end.