Tin học viết chương trình nhặp từ bàn phím một xâu kí tự ko dài 100 kí tự và hãy in ra màn hình các chữ số trong xâu đó 19/07/2021 By aihong viết chương trình nhặp từ bàn phím một xâu kí tự ko dài 100 kí tự và hãy in ra màn hình các chữ số trong xâu đó
uses crt;var s:string; i:byte;beginclrscr; write(‘Nhap 1 xau: ‘);readln(s); for i:=1 to length(s) Do if s[i] in [‘1’..’9′] then write(s[i]);readlnend. Trả lời
var s: string; i: byte; Begin Write(‘nhap xau: ‘); readln(s); For i:=1 to length(s) do If s[i] in [‘0’..’9′] then write(s[i], ‘ ‘); Readln End. Trả lời