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

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

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

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

Решение:

var a:integer;
begin
  a:=1;
  while a<>22 do
  begin
    writeln('Vvedite chislo');
    readln(a);
    if a<>22 then
      writeln('#');
  end;
  writeln('Poka');
  readln();
end.

var a:integer;
begin
  a:=1;
  while a<>22 do
  begin
    writeln('Vvedite chislo');
    readln(a);
    if a=22 then break;
    writeln('#');
  end;
  writeln('Poka');
  readln();
end.

Консоль:

Vvedite chislo
1
#
Vvedite chislo
2
#
Vvedite chislo
4
#
Vvedite chislo
22
Poka