Вывод на экран чётных чисел от 2 до 100

@ac1d_buRn · Регистрация: 19.02.2009

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

Как осуществить с оператором while? Нужен массив?

@ISergey · 12.03.2009, 23:09

Как - то так

Pascal

program Project;
var
 i: integer;
begin
 i := 2;
 while(i < 101)do
 begin
  if (i mod 2) = 0 then
   WriteLn(i);
  Inc(i);//i := i + 1
 end;
 ReadLn;
end.

@Puporev · 12.03.2009, 23:11

Массив-то зачем? Что в нем хранить собираетесь?
Нужно просто вывести все числа, начиная с 2 через 2 закончить на 100.

Pascal

var i:byte;
begin
i:=2;
while i<=100 do
  begin
   write(i,' ');{вывод в строку через пробел}
   i:=i+2;
  end;
readln
end.

@ac1d_buRn 0 / 0 / 1 Регистрация: 19.02.2009 Сообщений: 25
		1
	Вывод на экран чётных чисел от 2 до 100 12.03.2009, 22:58. Показов 8881. Ответов 2 Метки нет (Все метки) Как осуществить с оператором while? Нужен массив? 0

	12.03.2009, 23:11

Вывод на экран чётных чисел от 2 до 100

Решение