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.
вот не знаю куда ее засунуть. при выполнении сразу пишет неправильно и равно.
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.
вот не знаю куда ее засунуть. при выполнении сразу пишет неправильно и равно.