Добавил:
Hist
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Паскаль (I семестр) / K01-172 / 01 / gr4
.pas program gr_four;
var
X,Y:real;
begin
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг X § ¤ ®© в®зЄЁ: ');
readln(X);
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг Y § ¤ ®© в®зЄЁ: ');
readln(Y);
writeln( ((Y-X)>=2) or ((Y-X)<=-1) );
readln;
end.
var
X,Y:real;
begin
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг X § ¤ ®© в®зЄЁ: ');
readln(X);
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг Y § ¤ ®© в®зЄЁ: ');
readln(Y);
writeln( ((Y-X)>=2) or ((Y-X)<=-1) );
readln;
end.