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