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

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

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

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

Решение с использованием if:

program programma7;
var a, b : integer;
begin
  a := 1;
  while (a <> 22) do
  begin
    writeln('Vvedite celoe chislo:');
    readln(a);
      If a<>22 then
        writeln('#');
  end;
  writeln('Chislo = 22');
  readln();
end.  

Решение с использованием if и break

program programma7;
var a, b : integer;
begin
  a := 1;
  while (a <> 22) do
  begin
    writeln('Vvedite celoe chislo:');
    readln(a);
      If a=22 then
        break
      else
        writeln('#');
  end;
  writeln('Chislo = 22');
  readln();
end.