Урок 13.1 Задача 10
Primary tabs
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
program project1; var i,j,m,n:integer; begin write('vvedite M: '); readln(m); write('vvedite N: '); readln(n); for i:=1 to m do begin if(i mod 2=1) then n:=n div 2 else n:=n * 2; for j:=1 to n do write(j,' '); writeln(); end; readln(); end.
- Log in to post comments
- 1034 reads
vedro-compota
Wed, 10/20/2021 - 19:29
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)