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

@12341 · Регистрация: 15.10.2010

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

помогите кто чем может:
while
вывести все четные числа начиная с числа N и до числа M. числа задает пользователь.

@Шутка · 15.10.2010, 18:08

Pascal

var
m,n:integer;
begin
writeln('vvedite chisla(n>=m)');
repeat
readln(n);
readln(m);
until m >= n;
while m >= n do begin
 if n mod 2 = 0 then writeln(n);
  n:=n+1;
end;
end.

@12341 · 15.10.2010, 18:25 **[ТС]**

Шутка,
огромное спасибо.

@12341 0 / 0 / 0 Регистрация: 15.10.2010 Сообщений: 5
		1
	Вывести все четные числа начиная с числа N и до числа M 15.10.2010, 17:40. Показов 15499. Ответов 2 Метки нет (Все метки) помогите кто чем может: while вывести все четные числа начиная с числа N и до числа M. числа задает пользователь. 0

@12341 0 / 0 / 0 Регистрация: 15.10.2010 Сообщений: 5
	15.10.2010, 18:25 [ТС]	3
	Шутка, огромное спасибо. 0

Опции темы

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

Решение