Четные vs Нечетные.

@Reid · Регистрация: 06.09.2015

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

Срочно надо написать программу для экзамена. Помогите.

Вам задан отрезок от a до b.Определите, каких чисел больше: четных или нечетных.

@yanyk1n · 01.05.2010, 16:01

Pascal

uses crt;
var a,b:integer;
 
begin
 clrscr;
 write('A B -> ');
 readln(a,b);
 if (a mod 2 = 1) and (b mod 2 = 1) then writeln('Нечётных') else
 if (a mod 2 = 0) and (b mod 2 = 0) then writeln('Чётных') else writeln('Поровну');
 readln;
end.

@Reid 0 / 0 / 0 Регистрация: 06.09.2015 Сообщений: 1
		1
	Четные vs Нечетные. 01.05.2010, 15:58. Показов 1138. Ответов 1 Метки нет (Все метки) Срочно надо написать программу для экзамена. Помогите. Вам задан отрезок от a до b.Определите, каких чисел больше: четных или нечетных. 0

	01.05.2010, 16:01

Четные vs Нечетные.

Решение