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

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

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

var i: integer;
begin
   i:=1;
   while i<>22 do
     begin
       writeln ('vvedite chislo');
       readln(i);
         if (i<>22) then
           writeln ('#');
         if (i=22) then
           break;
     end;
readln();
end.
vedro-compota's picture

         if (i<>22) then
           writeln ('#');
         if (i=22) then
           break;

-- переписать короче (используя полную форму условного оператора)

_____________
матфак вгу и остальная классика =)

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