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

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

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

1.

var a: integer;
begin

  while (a <> 22) do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    if ((a mod 2)=0) and (not (a=22)) then
    writeln(' # ');
  end;

  writeln('Czikol zavershon');
  readln();

end.    

Консоль:

vvedite celoe chislo:
1
vvedite celoe chislo:
2
 #
vvedite celoe chislo:
24
 #
vvedite celoe chislo:
23
vvedite celoe chislo:
22
Czikol zavershon

2.

var a: integer;
begin

  while (a <> 22) do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    if (a=22) then
    break;
    if ((a mod 2)=0) then
    writeln(' # ');
  end;

  writeln('Czikol zavershon');
  readln();

end. 

Консоль:

vvedite celoe chislo:
1
vvedite celoe chislo:
2
 #
vvedite celoe chislo:
23
vvedite celoe chislo:
24
 #
vvedite celoe chislo:
22
Czikol zavershon