Урок 11 Задача 1
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.
var a:integer; begin a:= 1; while (a <= 15) do begin writeln(a + 7); a := a + 1; end; readln(); end.
- Log in to post comments
- 1081 reads
vedro-compota
Thu, 07/29/2021 - 21:06
Permalink
Пользователь вводит целые
нужен readln()
_____________
матфак вгу и остальная классика =)
MrDeadSummer
Thu, 07/29/2021 - 21:38
Permalink
var a:integer;