Задание:
Составить программу которая состоит из 3 строк: мама, лоток, кот. Составляя 4 строкумолоток
Решение:
uses crt; var a,b,c,d: string; begina: ='мама'; writeln ('Первая строка: ',a); b: ='лоток'; writeln ('Вторая строка: ',b); c: ='кот'; writeln ('Третья строка: ',c); d: =(copy (a,1,1)+copy (c,2,1)+copy (b,1,5); writeln ('Четвертая строка: ',d); end.
Знаете другой ответ?