Процедуры Read и Readln в языках семейства Паскаль (Pascal) предназначены для организации ввода данных с клавиатуры или их чтения из файла. Процедура Read завершает чтение непосредственно после получения последнего символа исходных данных, ограниченного пробелом или признаком смены строки (который получается при нажатии клавиши Enter). Процедура Readln, кроме того, осуществляет принудительный переход к следующей строке, пропуская признак смены строки.
Пример. Пусть надо ввести значения для переменных a и b типа integer.
Read(a, b); выполнит такой ввод независимо от того, как разделять значания - одним или более пробелами, нажатием Enter или комбинацией этих действий.
Readln(a, b); поведет себя точно так же. Поэтому нет разницы, какую из двух процедур использовать (зато Read короче писать!) для ввода данных числового типа.
Но для ввода символов и символьных строк разница есть!
Пробел и признак смены строки - это тоже символы, поэтому тут нужно использовать только Readln, поскольку признаком разделения данных для строк является только смена строки. Строка также может быть и пустой, т.е. не содержать символов.
Поэтому правило такое: если нет ввода символьных данных - используем Read. Если вводятся символьные данные, используем Readln, причем, если перед вводом таких данных вводятся числовые данные, их также надо вводить посредством Readln. Почему? Чтобы после Read не остался ко вводу признак смены строки и не получить в качестве вводимой затем строки пустую.
Подробнее обо всем этом можно прочесть в литературе по языку Паскаль. Например, в книге "PascalABC.NET: Введение в современное программирование", стр 214. Она легко ищется в Интернет, расположена на официальном сайте PascalABC.NET и бесплатна для скачивания.
1)
var a,b,x,y:longint;
begin
write("Vvedite nachalo i konec otrezka: ");
read(a,b);
write("Vvedite x: ");
read(x);
y:=sqr(x)*x;
if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");
readln
end.
2)
var c,i:byte;
begin
for i:=49 to 215 do
if (i mod 4=0) then c:=c+1;
write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);
readln
end.
3)
var i:integer;
p:longint;
for i:=1000 to 9999 do
if (i mod 10=3) then p:=p*i;
write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);
readln
end.
4)
var i:byte;
c:integer;
begin
for i:=221 to 778 do
if ((i mod 10)=(i div 100)) then c:=c+1;
write("Kolichestvo chisel ravno ",c);
readln
end.
5)
var i:longint;
c:integer;
begin
for i:=10000 to 99999 do
if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;
write("Kolichestvo chisel ravno ",c);
readln
end.
public class MyClass {
public MyClass() {
Scanner sc = new Scanner(System.in);
int num = sc.hasNext() ? sc.nextInt() : 0;
System.out.println(num % 10 + " " + num / 10);
}
}