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