Добавил:
DIF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N9M
.PAS Program V41_N9;
uses crt,modul41;
var
Station :mas1;
Rast :mas2;
BEGIN
Vvod(Station,Rast);
clrscr;
Vivod(Station,Rast,'Љ®¬б®¬®«мбЄ п ','ЉгабЄ п ');
Vivod(Station,Rast,'’ Ј бЄ п ','ЃҐ«®агбЄ п ');
Vivod(Station,Rast,'Џ аЄ Љг«мвгал ','Љ®¬б®¬®«мбЄ п ');
while not keypressed do;
END.
uses crt,modul41;
var
Station :mas1;
Rast :mas2;
BEGIN
Vvod(Station,Rast);
clrscr;
Vivod(Station,Rast,'Љ®¬б®¬®«мбЄ п ','ЉгабЄ п ');
Vivod(Station,Rast,'’ Ј бЄ п ','ЃҐ«®агбЄ п ');
Vivod(Station,Rast,'Џ аЄ Љг«мвгал ','Љ®¬б®¬®«мбЄ п ');
while not keypressed do;
END.
Соседние файлы в папке V41