Урок 11 Задание 1
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.
program Project1; var a: integer; begin a := 1; while (a <= 15) do begin writeln('vvedite celoe chislo:'); readln(a); writeln(a + 7); end; writeln('Poka!'); readln(); end.
Консоль:
vvedite celoe chislo: 5 12 vvedite celoe chislo: 7 14 vvedite celoe chislo: 19 26 Poka!
- Log in to post comments
- 376 reads