Урок 11 Задача 6
Primary tabs
Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15.
Если очередное введенное число является чётным, то в ответ водите сумму этого числа и пред-предыдущего введённого пользоватлем числа, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.
var c, a: integer; begin a:=1; while (c <= 15) do begin writeln('vvedite chislo: '); readln(c); if ((c mod 2)=0)and(c <= 15) then begin writeln(a+c); end; a:=c; end; writeln('<<konec>>'); readln(); end.
- Log in to post comments
- 290 reads