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