Задача 7 Урок 11
Primary tabs
Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;
1 вариант:
program Project1; var a: integer; begin a := 1; // любое значение, чтобы цикл мог начаться while (a <> 22) do // заголов цикла с провекой логического выражения begin writeln('vvedite celoe chislo:'); // приглащаем пользователя ввести число readln(a); //считываем его из потока ввода if (a <> 22) then writeln(#); // выводим пользователю очередной ответ end; readln(); // удерживаем консоль end.
2 вариант:
program Project2; var a: integer; begin a := 1; // любое значение, чтобы цикл мог начаться while (a <> 22) do // заголов цикла с провекой логического выражения begin writeln('vvedite celoe chislo:'); // приглащаем пользователя ввести число readln(a); //считываем его из потока ввода if (a = 22) then break; writeln(#); end; readln(); // удерживаем консоль end.
- Log in to post comments
- 230 reads