Урок 11 Задача 1
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.
var a: integer; // в а будем записывать введенное число begin while (a<=15) do //пока а меньше или равно 15, будет выполняться цикл begin write('Введите число: '); //сообщение для пользователя readln (a); // считывание введенного числа writeln (a + 7); //выводим сразу сумму end; readln(); end.
Вывод в консоли:
Введите число: 2
9
Введите число: 6
13
Введите число: 17
24
- Log in to post comments
- 172 reads