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

@Катрин1406 · Регистрация: 02.05.2011

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

составить программу в паскале,используя оператор WHILE.Вывести все четные числа,начиная с числа N и до числа M.Числа N и M задает пользователь.

@Huskar · 02.05.2011, 16:25

Pascal

program ctr;
uses crt;
var n,m:integer;
Begin
Clrscr;
repeat
Write('Введите n: '); readln(n);
Write('Введите m: '); readln(m);
until (n>0) and (n<m);
while n<=m do
begin
if n mod 2=0 then Writeln(n);
n:=n+1;
end;
End.

@Катрин1406 · 02.05.2011, 17:33 **[ТС]**

спасибо большое за помощь

@Катрин1406 1 / 1 / 0 Регистрация: 02.05.2011 Сообщений: 16
		1
	Вывести все четные числа, начиная с числа N и до числа M 02.05.2011, 15:34. Показов 5268. Ответов 2 Метки нет (Все метки) составить программу в паскале,используя оператор WHILE.Вывести все четные числа,начиная с числа N и до числа M.Числа N и M задает пользователь. 0

@Катрин1406 1 / 1 / 0 Регистрация: 02.05.2011 Сообщений: 16
	02.05.2011, 17:33 [ТС]	3
	спасибо большое за помощь 0

Опции темы

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

Решение