Помогите, пожалуйста, исправить ошибки

@S.P.Q.R.[tm] · Регистрация: 10.10.2010

Author24 — интернет-сервис помощи студентам

Задача: Диапозон целых положительных чисел задаётся. Выведите два столбика чисел рядом: в одном - чётные числа, в другом - нечётные.

Pascal

uses crt;
var a,b,i:integer;
z: byte;
begin
clrscr;
writeln ('вывод чётных и нечётных чисел');
write ('Введите левую границу диапозона ');
readln (a);
write ('Введите правую границу диапозона ');
readln (b);
for i:=a to b do
if i mod 2=0 then for z:=1 to b do
if odd(z) then writeln(i,' ',z);
readln
end.

@Puporev · 02.12.2010, 15:18

Pascal

uses crt;
var a,b,i,pc,pn:integer;
begin
clrscr;
writeln ('вывод чётных и нечётных чисел');
write ('Введите левую границу диапозона a=');
readln (a);
write ('Введите правую границу диапозона b=');
readln (b);
pc:=0;
pn:=0;
for i:=a to b do
if i mod 2=0 then
  begin
   pc:=pc+1;
   gotoXY(1,pc+4);
   write(i);
  end
else
 begin
  pn:=pn+1;
  gotoXY(10,pn+4);
  write(i);
 end;
readln
end.

	02.12.2010, 15:18