Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
na thi

loading...giúp mk 2 câu với ạ, mai mk thi rồi

Kiều Vũ Linh
3 tháng 5 2023 lúc 5:58

Câu 3

Var st:string;

i,d:integer;

Begin

Write('Nhap xau ky tu ');readln(st);

For i:=1 to length(st) do

If st[i] in ['0'..'9'] then d:=d+1;

Write('Co ',d,' ky tu so');

Readln

End.

Kiều Vũ Linh
3 tháng 5 2023 lúc 6:05

Câu 4

Var a:array[1..1000] of integer;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(a[i]);

End;

Write('Cac so chia het cho 3 hoac 5 la: ');

for i:=1 to n do

If (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then write(a[i]:8);

Readln

End.


Các câu hỏi tương tự
Nam Lê
Xem chi tiết
Trần Việt Đức
Xem chi tiết
T. Hiền
Xem chi tiết
nguyen vanh
Xem chi tiết
bao gia
Xem chi tiết
Thai Son Ly
Xem chi tiết
Linh Mochi
Xem chi tiết
Lê Bảo Linh
Xem chi tiết
Hươngg Thuu
Xem chi tiết