Задача 17 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 четыре числа 3 16 18 20 22 четыре числа 3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
81 0два числа3 14 16 два числа 3....3....и т.д.
program task17_lesson13_1; var n, m, i, k, j : integer; begin j:=8; // первое число k:=0; // сюда сохраняем разницу между первым и N-ым readln(n); //сколько чисел readln(m); // скольео чисел между "3"-ми if n<0 then writeLn ('error') else begin for i:=1 to n do begin write(j+k,' '); if ((i mod m) = 0) then write(3, ' '); k := k + 2; end; end; readLn(); end.
- Log in to post comments
- 485 reads