чётные нечётные

@Ronaldo_7 · Регистрация: 24.11.2010

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

вывести в столбик чётные и нечётные числа:

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

почему у меня при задавании диапозона от 1 до... у меня выдаёт 1 в столбик чётных.

@MegaAce · 28.12.2010, 22:13

Потому, что до единички не было четных чисел
Вставте перед

Сообщение от Ronaldo_7

for i:=a to b do

Код

if a mod 2 =1 then writeln(#32,#32,a)

@Ronaldo_7 · 28.12.2010, 22:18 **[ТС]**

тоды он одни 1 выдает

@Ronaldo_7 · 28.12.2010, 22:21 **[ТС]**

ой не туда вставил но всё равно не то

@MegaAce · 28.12.2010, 22:33

Pascal

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

@Ronaldo_7 · 28.12.2010, 22:36 **[ТС]**

так работает)

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
		1
	чётные нечётные 28.12.2010, 22:01. Показов 4554. Ответов 5 Метки нет (Все метки) вывести в столбик чётные и нечётные числа: var a,b,i,pc,pn: integer; begin writeln ('Вывод чётных и нечётных чисел'); write ('Введите левую границу диапозона a= '); readln (a); write ('Введите правую границу диапозона b= '); readln (b); if a or b<0 then writeln ('Введены не корректные границы диапозона') else begin pc:=0; pn:=0; for i:=a to b do if i mod 2=0 then begin pc:=pc+1; write (i,#32); end else begin pn:=pn+1; writeln (i); end; end; readln end. почему у меня при задавании диапозона от 1 до... у меня выдаёт 1 в столбик чётных. Миниатюры 0

@MegaAce 332 / 306 / 155 Регистрация: 14.02.2010 Сообщений: 662
	28.12.2010, 22:13	2
	Потому, что до единички не было четных чисел Вставте перед Сообщение от Ronaldo_7 for i:=a to b do Код if a mod 2 =1 then writeln(#32,#32,a) 0

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
	28.12.2010, 22:18 [ТС]	3
	тоды он одни 1 выдает 0

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
	28.12.2010, 22:21 [ТС]	4
	ой не туда вставил но всё равно не то Миниатюры 0

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
	28.12.2010, 22:36 [ТС]	6
	так работает) 0