Program HOC24;
var a: array[1..32000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
if a[i]>=5 then t:=t+a[i];
end;
write('Tong la: ',t);
readln
end.
Program HOC24;
var a: array[1..32000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
if a[i]>=5 then t:=t+a[i];
end;
write('Tong la: ',t);
readln
end.
giúp mình với, mình cảm ơn.
1.Viết chương trình nhập 2 số nguyên a, b từ bàn phím (b!=0), in tổng, hiệu, tích, thương phần nguyên a/b.
2.Viết chương trình nhập năm sinh của một người từ bàn phím, sau đó in ra lời chào và tuổi của người đó.
3.Viết chương trình nhập ba số thực a, b, c từ bàn phím là số đo 3 cạnh tam giác, sau đó tính và in chu vi, diện tích tam giác đó.
4.Viết chương trình nhập vào một số nguyên, sau đó in ra màn hình số đó là số chẵn hay lẻ.
5.Viết chương trình giải phương trình: ax^2+bx+c=0 với các hệ số a, b, c được nhập vào từ bàn phím.
C1 viết chương trình tính dãy số thập phân từ 1+1/2+1+1/3+1/4...+1/9
C2 nhập vào 1 số nguyên N, in ra tổng các số lẻ từ 1--->N
Giúp tuii đyyy !!
kết xuất báo cáo là gì?
các bước tải nhạc từ mạng{nhạc của tôi} sang USB
Là người dùng bản thân em phải làm gì trong vấn đề bảo mật thông tin, bảo vệ hệ thống khi khai thác csdl?
Chức năng sơ cấp là gì ?. Trong biểu đồ luồng dữ liệu, chức năng sơ cấp đòi hỏi điều gì mà thành phần khác không nhất thiết phải có?