Napisz program w Turbo Pascalu, który czyta ciąg znaków i wypisuje jego skrót po trzy znaki z poczatku i końca.
np wpisze słowo - Jadwiga to wyskoczy mi Jadiga
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program zadanie;
uses crt;
var
slowo, skr:String;
i:integer;
begin
Write('Podaj slowo: ');
readln(slowo);
for i := 1 to 3 do
skr := skr + slowo[i];
for i := length(slowo)-2 to length(slowo) do
skr := skr + slowo[i];
clrscr;
Write('Podane slowo po skroceniu wyglada nastepujaco: '+skr);
readln;
end.