Question

напишите программу ПАСКАЛЬ. вот задача. Ввести натуральное число N. Вывести треугольник, содержащий N
строк с чередующимися четными и нечетными числами меньшими N с
уменьшением их количества в каждой новой строке на единицу.

Answer 1

const nx=30;
var i,j,n,m:integer;A:array[1..nx,1..nx] of integer;
begin write(' Введите  n');read(n);
m:=n;
for i:=1 to n do begin
for j:=1 to m do begin
write(j:3);end;
writeln;m:= m -1;
end;end.

Answer 2

write(j:3);end; вместо этого нужно записать две строки

Answer 3

if(i mod 2 = 1)and (j mod 2 = 1) then write(j:2,'<');

Answer 4

if(i mod 2 = 0)and (j mod 2 = 0) then write(j:2,'<');end;

Answer 5

плопробую

Answer 6

спасибо все верно