Roxxianna
Nowy
Dołączył: 25 Maj 2014
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Nie 17:45, 25 Maj 2014 Temat postu: Zadanie z użyciem tekstów |
|
|
Witam! Czy ktoś mógłby mi pomóc z wykonaniem zadania domowego w Turbopascalu?
Mianowicie chodzi o to, że mam wpisać tekst w postaci ciągu liczb np. "1234567891" a program ma mi go wyświetlić w postaci 1 234 567 891. Dotarłam do momentu w którym wyświetla mi się 123 456 789 1, i nie wiem co dalej mam poczyniać w tym programie. Liczę na szybką pomoc
program teksty;
uses crt;
var t:string; i:integer; k:longint;
begin
clrscr;
write('Podaj losowy ciag znaków ');
readln(t);
k:=0;
for i:=1 to length(t) do
begin
write(t[i]);
k:=k+1;
if k mod 3=0 then
write(' ');
end;
writeln;
repeat until keypressed;
end.
Post został pochwalony 0 razy
|
|