Ирек Сабитов
Помогите составить программу на паскаль
1. Упятерить каждую букву в слова уголок
2. Заменить все буквы "С" на "З" в слове "сосулька".
1. Упятерить каждую букву в слова уголок
2. Заменить все буквы "С" на "З" в слове "сосулька".
writeln( 'ууууугггггоооооллллллоооооккккк' );
writeln( 'зозулька' );
1) Str := ''уголок; L := Length(Str); while L > 0 do begin for i := 1 to 4 do Insert(Str[ i], Str, i); end; WriteLn(Str);
2) в слове «сосулька» нет ни одной буквы «C»!