Урок 10.1 Задача 9
Primary tabs
Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число
var i:integer; begin for i:=1 to 100 do if ((i mod 7)=0) then writeln(i); readln(); end. var x, i:integer; begin x:=0; for i:=1 to 100 do begin x:=x+1; if (x=7) then begin writeln(i); x:=0; end; end; readln(); end.
- Log in to post comments
- 393 reads