Решение задачи 10 из главы 13.1
Primary tabs
Решение задачи 10 из главы 13.1
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
Не понятно условие, а именно N/2 символов.
program Project10; var i, a, b, c: integer; begin b:=1; writeln('Vvedite chislo povtoriaushihsia strok:'); readln(a); writeln('Vvedite chislo pravoj granitsy stroki:'); readln(c); while (a >= b) do begin for i:=1 to c do if ((b mod 2) = 0) then begin write(i, ' ');//vyvodim vse simvoly end else if (((i mod 2) = 0) AND (i > 0)) then write(i, ' '); //vyvodim polovinu simvolov(naprimer tolko polozhitelnye chisla) //write(i/2, ' ');//vyvodim polovinu simvolov(naprimer pervye chisla) writeln(); b:=b+1; end; readln(); end.
- Log in to post comments
- 1315 reads
testok
Fri, 10/23/2020 - 01:53
Permalink
исправлено