Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / D1
.PAS program alex2;
uses crt;
var a,b:string;
i,o:integer;
begin
clrscr;
write ('‚ўҐ¤ЁвҐ б«®ў® ');
readln (a);
write ('‚ўҐ¤ЁвҐ ўбв ў«пҐ¬®Ґ б«®ў® ');
readln (b);
write ('‚ўҐ¤ЁвҐ ®¬Ґа Ї®§ЁжЁЁ ');
readln (i);
insert (b,a,i);
writeln (a);
readln;
end.
uses crt;
var a,b:string;
i,o:integer;
begin
clrscr;
write ('‚ўҐ¤ЁвҐ б«®ў® ');
readln (a);
write ('‚ўҐ¤ЁвҐ ўбв ў«пҐ¬®Ґ б«®ў® ');
readln (b);
write ('‚ўҐ¤ЁвҐ ®¬Ґа Ї®§ЁжЁЁ ');
readln (i);
insert (b,a,i);
writeln (a);
readln;
end.
Соседние файлы в папке Alex