Tin học Nhập xâu và in ra các số nguyên có trong xâu.(pascal) 24/07/2021 By Valerie Nhập xâu và in ra các số nguyên có trong xâu.(pascal)
program sotrongxau; uses crt; var st,st2:string; i:byte; begin clrscr; write(‘Nhap xau: ‘); readln(st); st2:=”; write(‘Cac so co trong xau la: ‘); for i:=1 to length(st) do if st[i] in [‘0’..’9′] then st2:=st2+st[i] else begin write(st2,’ ‘); st2:=”; end; readln end. Trả lời
uses crt;var s,tam:string; i:byte;BEGIN clrscr; write(‘Nhap xau:’); readln(s); tam:=”; for i:=1 to length(s) do begin if s[i] in [‘0’..’9′] then tam:=tam+s[i] else begin if tam<>” then writeln(tam); tam:=”; end; end; readlnEND. Cho mình ctlhn nha. Trả lời