Задача 17, урок 13.1
Primary tabs
При решении задачи 17 урок 13.1 есть проблема
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 четыре числа 3 16 18 20 22 четыре числа 3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810 два числа 3 14 16 два числа3....3....и т.д.
Не получается вывести цифры как показано на примере.
var k,i,j,n,c,m,b:integer; begin writeln('vvedite chislo n:'); readln(n); writeln('vvedite chislo m:'); readln(m); c := 3; // объявление переменной с for i:=1 to n do begin // начало тела цикла if ((i mod 2)=0) then // выделяем из цикла четные переменные k:=i; k:=k+8; // присваивание переменной к for j:=1 to m do // цикл определяет для выделения м begin // начало тела цикла write(k, ' '); // выводим к k:=k+2; // увеличиваем к на 2 if ((j mod m)=0) then // выделяем из цикла нечетные переменные чему равна м write(c, ' ') // вывод с end; // конец внутреннего цикла end; // конец внешнего цикла readln(); end.
- Log in to post comments
- 1970 reads
vedro-compota
Mon, 03/02/2020 - 13:54
Permalink
замечания
-- это четные переменные.
- такого типа комменты вообще писать не надо,
можно написать за что цикл отвечает, а что он внутренний, итак понятно.
Проверьте все комментарии.
_____________
матфак вгу и остальная классика =)