Задача 5 Урок 11
Primary tabs
Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.
Решение:
var b, a, c:integer; begin a:=1; b:=1; c:=1; while(a < 15) do begin c := b; b := a; writeln('vvedite celoe chislo'); readln(a); if(a < 15) then writeln('summa:',a, '+', b, '+', c, '=',(a+b+c)); end; writeln('poka!'); readln(); end.
Консоль:
vvedite celoe chislo 2 summa:2+1+1=4 vvedite celoe chislo 3 summa:3+2+1=6 vvedite celoe chislo 0 summa:0+3+2=5 vvedite celoe chislo
- Log in to post comments
- 749 reads
vedro-compota
Fri, 06/10/2022 - 20:00
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)