Нахождение положительных четных чисел, меньших а (постусловие)

@СашаСашаСашаС · Регистрация: 30.09.2016

составит программу нахождения положительных четных чисел меньших а (а ввод с клав)

@PAMAH HAPKAMAH · 24.10.2016, 22:16

Pascal

1
2
3

for i:=0 to a do 
 if a mod 2 = 0 then
  writeln(i);

@bormant · 24.10.2016, 22:38

PAMAH HAPKAMAH,
ошибочка. 0 не является положительным числом.

Pascal

1	i:=2; while i<a do begin Write(' ',i); Inc(i,2); end;

@СашаСашаСашаС 0 / 0 / 0 Регистрация: 30.09.2016 Сообщений: 34
		1
	Нахождение положительных четных чисел, меньших а (постусловие) 24.10.2016, 16:08. Показов 1625. Ответов 2 Метки нет (Все метки) составит программу нахождения положительных четных чисел меньших а (а ввод с клав) 0

	24.10.2016, 22:38

Решение