Решение задачи №18 из главы 13.1
Primary tabs
Решение задачи №18 из главы 13.1
Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810два числа3101214три числа316182022четыре числа3....3....и т.д.
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.
Распечатка консоли Vvedite chislo ogranichitel 5 Vvedite chislo 50 8 10 3 12 14 16 3 18 20 22 24 3 26 28 30 32 34 3 36 38 40 42 44 46 3 48 50
var i,n,j,m:integer; begin i:=8; // начальное значение счетчика j:=0;// начальное значение для внутреннего счетчика writeln('Vvedite chislo ogranichitel'); readln(m); writeln('Vvedite chislo'); readln(n); if n >= 0 then //внешнее условие begin m:=2;// присваиваем двойку внешнему ограничителю while i<=n do begin j:=j+1; // запускаем внутренний счетчик if(j > m) then begin m:=m+1; write(3, ' '); j:=0; //обнуляем внутренний счетчик end else begin write(i, ' '); i:=i+2; // изменяем значение счетчика end end end else writeln('oshibka');//если введеное значение отрицательное или равно нулю readln(); end.
- Log in to post comments
- 1256 reads
vedro-compota
Thu, 10/22/2020 - 20:15
Permalink
writeln('Vvedite chislo
-- не нужно
_____________
матфак вгу и остальная классика =)
vedro-compota
Thu, 10/22/2020 - 20:16
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)