Автор Алина Татевосова задал вопрос в разделе Другие языки и технологии
Как ввести числа от 1 до 100 и проверить это. В ПаскальАВС и получил лучший ответ
Ответ от Johnsilver[гуру]
так не верно. человек может ввести не только число, но и символ.
поэтому если писать что то универсальное, то считывать надо в строку.
потом пробовать перевести строку в целое число, с отловом ошибки. и уже потом проверять диапазон.
ввод можно зациклить до тех пор, пока не будет введено нужное
а что значит получается только 1 ?
johnsilver
(11461)
тогда нужен цикл.
только вопрос, если тебе нужны все цифры подряд от 1 до 100, то зачем вводить их с клавиатуры, когда тот же цикл предоставит тебе их без лишних проверок
Ответ от 256[гуру]
после then write('Правильно')
после then write('Правильно')
Ответ от Krab Bark[гуру]
var a:integer;
begin
writeln('Вводите числа от 1 до 100');
repeat readln(a) until not(a in [1..100]);
writeln('Ошибка ввода')
end.
var a:integer;
begin
writeln('Вводите числа от 1 до 100');
repeat readln(a) until not(a in [1..100]);
writeln('Ошибка ввода')
end.
Ответ от Ўрий Моисеев[гуру]
Числа можно вводить либо в массив, либо в файл. А в вашей программе они вводятся неизвестно куда.
Числа можно вводить либо в массив, либо в файл. А в вашей программе они вводятся неизвестно куда.
Ответ от Алексей Корсунов[гуру]
Program DDoS;
var
i:integer;
a:array[1..10] of integer;
begin
writeln('Введите числа от 1 до 100');
for i:=1 to 10 do
readln(a[i]);
if (a[i]>0) and (a[i]<101) then
else
writeln('Ошибка ввода');
end.
вот готовая
Program DDoS;
var
i:integer;
a:array[1..10] of integer;
begin
writeln('Введите числа от 1 до 100');
for i:=1 to 10 do
readln(a[i]);
if (a[i]>0) and (a[i]<101) then
else
writeln('Ошибка ввода');
end.
вот готовая
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как ввести числа от 1 до 100 и проверить это. В ПаскальАВС