глупый вопрос студента pascal abc - if
Код:
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 2226631 |
Цитата:
Цитата CrashTest
Задача - ввести число меньше 10. »
|
Код:
program ex;
var a: integer;
begin
writeln('Введите число меньше десяти: ');
readln(a);
if (a < 10) then
writeln('Правильно. Число меньше 10!')
else
writeln('Неправильно. Число больше 10!');
end.
|
Время: 21:21.
© OSzone.net 2001-
