Задача 1 Урок 11
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15,
в ответ на каждое введённое число выводите сумму этого числа и числа 7,
если же введённое число больше 15, то цикл необходимо завершить.
решение задачи
var a:integer; begin while (a < 15) do begin writeln('vvedite zeloe chislo'); readln(a); writeln('summa : ', a + 7); end; writeln('vvedenoe chislo a > 15 zikl zavershen'); readln(); end.
- Log in to post comments
- 655 reads