задача 7 урок 10:
Primary tabs
задача 7 урок 10:
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
//вариант решения 1 var i:integer; begin for i:=1 to 100 do if (i mod 7) = 0 then write(i, ' '); readln(); end.
А вот если бы цикл начинался не с 1 но задание было бы прежним, (иными словами нужно найти не кратное 7 а именно каждое 7е число в любом ряду) подойдет второй вариант решения:
//вариант решения 2 var i, m:integer; flag: boolean; begin flag := false; for i:=1 to 100 do begin if (flag = false) AND ((i + 6) < 101) then begin m := i + 6; flag := true; write(m, ' ') end; if (i = m) then flag := false; end; readln(); end.
- Log in to post comments
- 1602 reads
vedro-compota
Sun, 08/01/2021 - 11:45
Permalink
добавьте решение через mod
добавьте решение через mod
_____________
матфак вгу и остальная классика =)