Урок 13.1 Задача 11
Primary tabs
M раз выведете на экран числа от 1 до N с помощью вложенных циклов
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
var i,j,n,m:integer; begin writeln('vvedite 2 chisla N i M: '); readln(n,m); i:=1; if ((n div 2)<0) then writeln('N/2 menshe 0') else begin while i<=n do begin j:=1; if (i mod 2)=0 then while j<=m do begin write(j, ' '); j:=j+1; end else while (j<=(n div 2)) do begin write(j, ' '); j:=j+1; end; writeln(); i:=i+1; end; end;
- Log in to post comments
- 254 reads