Добавил:
DIF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N3
.PAS Program V41_N3;
uses crt;
var
S :string[6];
BEGIN
clrscr;
write('‚ўҐ¤ЁвҐ б«®ў® Ё§ 6-вЁ ЎгЄў: ');
readln(S);
if pos('а®',S)=0 then writeln('‘«®Ј "а®" - Ґв!!!')
else writeln('‘«®Ј "а®" - Ґбвм!!!');
readln;
END.
uses crt;
var
S :string[6];
BEGIN
clrscr;
write('‚ўҐ¤ЁвҐ б«®ў® Ё§ 6-вЁ ЎгЄў: ');
readln(S);
if pos('а®',S)=0 then writeln('‘«®Ј "а®" - Ґв!!!')
else writeln('‘«®Ј "а®" - Ґбвм!!!');
readln;
END.
Соседние файлы в папке V41