Pascal урок 11 задача 1
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.
var a: integer; begin a := 1; while (a <= 15) do begin writeln('vvedite celoe chislo:'); readln(a); writeln(a + 7); end; writeln('Vihod'); readln(); end.
- Log in to post comments
- 2310 reads
vedro-compota
Thu, 10/22/2020 - 20:12
Permalink
если пользователь вводит 15,
если пользователь вводит 15, сумма выводиться не должна
_____________
матфак вгу и остальная классика =)
Surd
Thu, 10/22/2020 - 21:36
Permalink
это обязательное условие мне
это обязательное условие мне пока не известное? просто в задаче вроде не указано это
Surd
Sat, 10/24/2020 - 08:23
Permalink
var a: integer;
нашел)