Задача 7. Урок 11.
Primary tabs
Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 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
- Log in to post comments
- 350 reads