Вводить числа до тех пор, пока они положительные или не встретится 10 или 25

@Fox1670 · Регистрация: 17.04.2014

вводим числа пока они положительные или не встретится 10 или 25.
помогите плиз!

@Puporev · 18.04.2014, 12:02

Pascal

1
2
3

a:=1000;
while(a>0)and(a<>10)and(a<>25) do
readln(a);

@Cyborg Drone · 18.04.2014, 16:40

Pascal

1
2
3

repeat
readln(a)
until (a <= 0) or (a = 10) or (a = 25);

@Puporev · 18.04.2014, 16:43

Изначально тема называлась

Задание на вайл

@Cyborg Drone · 18.04.2014, 16:48

А. Не знал. Ну и ладно, пусть у ТС ещё и задание на рипит будет. Заранее.

@Fox1670 0 / 0 / 0 Регистрация: 17.04.2014 Сообщений: 2
		1
	Вводить числа до тех пор, пока они положительные или не встретится 10 или 25 18.04.2014, 11:56. Показов 1812. Ответов 4 Метки нет (Все метки) вводим числа пока они положительные или не встретится 10 или 25. помогите плиз! 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.04.2014, 16:43	4
	Изначально тема называлась Задание на вайл 0

@Cyborg Drone Модератор 9868 / 5236 / 3306 Регистрация: 17.08.2012 Сообщений: 16,006
	18.04.2014, 16:48	5
	А. Не знал. Ну и ладно, пусть у ТС ещё и задание на рипит будет. Заранее. 0