Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №11-4 / 11-4 / zadanie_4
.pas program Zadanie_4;
const
L=['A'..'z'];
R=['Ђ'..'п'];
var
s: char;
begin
while s<>'Z' do
begin
write ('‚ўҐ¤ЁвҐ агббЄго Ё«Ё « вЁбЄго ЎгЄўг: ');
readln (s);
if s in R then writeln ('‚ўҐ¤Ґ агббЄ п ЎгЄў !!!');
if s in L then writeln ('‚ўҐ¤Ґ « вЁбЄ п ЎгЄў !!!');
writeln;
end;
end.
const
L=['A'..'z'];
R=['Ђ'..'п'];
var
s: char;
begin
while s<>'Z' do
begin
write ('‚ўҐ¤ЁвҐ агббЄго Ё«Ё « вЁбЄго ЎгЄўг: ');
readln (s);
if s in R then writeln ('‚ўҐ¤Ґ агббЄ п ЎгЄў !!!');
if s in L then writeln ('‚ўҐ¤Ґ « вЁбЄ п ЎгЄў !!!');
writeln;
end;
end.