Войти

Показать полную графическую версию : [решено] глупый вопрос студента pascal abc - if


CrashTest
30-09-2013, 23:04
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.
вот не знаю куда ее засунуть. при выполнении сразу пишет неправильно и равно.

Grabber2006
01-10-2013, 11:35
Задача - ввести число меньше 10. »


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




© OSzone.net 2001-2012