Вывести все четные числа от 0 до N

@Monest · Регистрация: 28.05.2013

1.Цикл с параметром FOR… TO… .
2.Условный оператор IF… THEN… .
3.Вывести все четные числа от 0 до N.

@maksim32 · 28.05.2013, 17:38

Pascal

var i,n:integer;
begin
 read(n);
 for i:=0 to n do if odd(i) then write(i,' ')
end.

@Monest 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 12
		1
	Вывести все четные числа от 0 до N 28.05.2013, 17:35. Показов 10903. Ответов 1 Метки нет (Все метки) 1.Цикл с параметром FOR… TO… . 2.Условный оператор IF… THEN… . 3.Вывести все четные числа от 0 до N. 0

	28.05.2013, 17:38

Решение