Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program So_nguyen;
uses crt;
Var a,b,t:integer;
Begin
clrscr;
Writeln(' Nhap 2 so nguyen a va b:');
if a>b then t:= a-b;
if a<b then t:=b-a;
if a=b then t:=0;
Writeln(' Ket qua la',t);
Readln;
End.
Di chuyển tệp/thư mục
- Dùng Menu Các hứớc thực hiện:
- Dùng nút chuột phải Các bước thực hiện:
- Dùng biểu tượng Move To trên thanh công cụ.
- Dùng Menu lựa chọn Move To Folder.
~HT~
Hok tốt!
@@
Bước 1: xác định bài toán
-input: dãy B1,B2,B3,...,Bn
-output:số các số chia hết cho 5
Bước 2: Viết thuật toán
-bước 1: nhập dãy số
-bước 2: dem:=0; i:=1;
-bước 3: nếu b[i] chia hết cho 5 thì dem:=dem+1;
-bước 4: i:=i+1;
-bước 5: nếu i≤n thì quay lại bước 3
-bước 6: xuất dem;
-bước 7:kết thúc
Bước 3: viết chương trình
uses crt;
var n,i,dem:integer;
b:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('b[',i,']=');readln(b[i]);
end;
{------------xuat-day-----------------}
for i:=1 to n do
write(b[i]:4);
{------------xu-ly------------------}
writeln;
dem:=0;
i:=1;
while i<=n do
begin
if b[i] mod 5=0 then inc(dem);
i:=i+1;
end;
writeln('so cac so chia het cho 5 trong day la: ',dem);
readln;
end.