Hirdetés
- iPhone topik
- Telekom mobilszolgáltatások
- One mobilszolgáltatások
- Google Pixel topik
- Elalmásodik a Xiaomi: 100 wattos töltéssel érkezik a 16 Pro Max
- Motorola Edge 50 Ultra - szépen kifaragták
- Honor 400 Pro - Gép a képben
- Hamarosan itt az Amazfit T-Rex 3 Pro – fotók, infók az új óráról
- Xiaomi 15 - kicsi telefon nagy energiával
- Milyen okostelefont vegyek?
-
Mobilarena
Új hozzászólás Aktív témák
-
janos1988
addikt
válasz
janos1988 #14174 üzenetére
A temps-re nincs is szükség és 2 komment.
program szoveg_bontas;
function bontas(s1:string;var pos1:integer):string;
begin
bontas:='';
while (s1[pos1]<>#32) and (pos1<>length(s1)+1) do //a . lemarad ha nincs +1
begin
bontas:=bontas+s1[pos1];
inc(pos1);
end;
inc(pos1); //szokoz (#32) atugrasa
end;
var
s2:string;
pos2,t,i:integer;
tomb:array [1..10] of string;
begin
pos2:=1;
t:=0;
s2:='Ez megint egy szep hosszu proba mondat.';
repeat
inc(t);
tomb[t]:=bontas(s2,pos2);
until pos2>length(s2);
for i:=1 to t do writeln(tomb[i]);
end.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Xiaomi Redmi Note 10, Xiaomi Redmi Note 10s, Xiaomi Redmi Note 10 Pro
- Honor X7a 128GB, Kártyafüggetlen, 1 Év Garanciával
- KERESEM! LG UltraGear 45GS95QE // 39GX90SA
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3176, 96% Akkumulátor
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest