Read (x). Оператор ввода значения переменной с клавиатуры.
Если программа представляет собой последовательность выполнения различных задач, в том числе и Read, то когда очередь дойдет до него программа запросит у вас ввод данных и пока вы не выполните требования, она не продолжит работу.
х - это переменная. Переменные бывают различных типов (не все подходят для read). Два основных типа: Число (integer) и Символ(Char). Если х типа integer, то вам придется ввести целое число (например 2). Но при вводе символа программа выбьет ошибку "Ошибка ввода", так как вы попытались присвоить переменной числа, букву, а это невозможно.
Рассмотрим пример программы: здесь х типа integer,сначала он намеренно присвоен 5 и выведен на экран, затем вам дается возможность ввести новый х, и он заново выведется. Если вы попытаетесь ввести символ то выбьет ошибку "ошибка ввода", попробуйте.
Var x:integer;
Begin
x:=5;
writeln ('x=',x);
write ('Enter a new X: ');
read (x);
writeln ('x=',x);
end.
Var max,min,i,s:integer;
mas:array[1..25] of integer;
begin
randomize;
write('Введите диапазон: '); readln(max,min);
if(min>max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
for i:=1 to 25 do
mas[i] := min + random(max-min+1);
for i:=1 to 25 do begin
write(i,'-ый элемент: ',mas[i]);
if((mas[i] mod 5) = 2) then begin s:=s+1; writeln('+'); end
else writeln();
end;
write('Сумма элементов, которые при делении на 5 дают остаток 2: ',s);
end.
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin;
var s:=ReadInteger('n=').ToString;
If s.Length<>(s.Distinct.Count) then Writeln('не является')
else
if s=s.ToCharArray.SortedDescending.JoinIntoString('')
then Writeln('является') else Writeln('не является')
end.
<u>Примеры</u>
n= 9875431
является
n= 9753321
не является
n= 9763421
не является
<u><em>Замечание:</em></u> учтено, что упорядоченность должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.