Разное - [решено] глупый вопрос студента pascal abc

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Разное - [решено] глупый вопрос студента pascal abc - if

CrashTest

Ветеран

Сообщения: 602
Благодарности: 1

Профиль | Отправить PM | Цитировать

Код:

program ex;
var a: integer;
begin
	write('Введите число меньше десяти: ');
	readln(a);
	if(a < 0) or (a >= 0) and (a <= 9) then
		begin
		write('Правильно. Число меньше 10!');
		end else
		begin
		writeln('Неправильно. Число больше 10!');
		end;
	if(a = 10) then
	begin
	write('Число равно 10.');
	end;
end.

Задача - ввести число меньше 10.
Я сделал условие которое проверяет число должно быть меньше нуля или быть ему равно и до 9.
выводится правильно!
или если условие не выполняется то пишет не правильно - число больше 10

я решил добавить условие которое должно проверять не равно оно 10.
вот не знаю куда ее засунуть. при выполнении сразу пишет неправильно и равно.

Отправлено: 23:04, 30-09-2013

Grabber2006

Ветеран

Сообщения: 5064
Благодарности: 1154

Профиль | Отправить PM | Цитировать

Цитата CrashTest:

Задача - ввести число меньше 10. »

Код:

program ex;
var a: integer;
begin
	writeln('Введите число меньше десяти: ');
	readln(a);
	if (a < 10) then
       	  writeln('Правильно. Число меньше 10!')
	else
	  writeln('Неправильно. Число больше 10!');
end.

Отправлено: 11:35, 01-10-2013 | #2