K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
NQ
Nguyễn Quốc Đạt
CTVVIP
17 tháng 10 2023
Program HOC24;
uses crt;
var i,n: integer;
a: array[1..1000] of integer;
t: longint;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];
end;
readln;
write(t);
readln;
end.
KV
6 tháng 5 2023
1) Đề chưa rõ ràng!
2) var a:array[1..1000] of real;
i,n:integer;
min:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];
write('So nho nhat trong day la ',min:10:2);
readln
end.
Để tính tổng các số lẻ từ 1 đến n, em có thể sử dụng vòng lặp và biến tích luỹ. - Nhập số nguyên n từ bàn phím. - Khởi tạo biến `tong` = 0 để lưu tổng. - Dùng vòng lặp `i` chạy từ 1 đến n, bước nhảy 2 (1, 3, 5,…), mỗi lần cộng `tong = tong + i`. - Sau khi vòng lặp kết thúc, in biến `tong` ra màn hình. Ví dụ với Pascal: ``` var n,i,tong: integer; begin readln(n); tong:=0; for i:=1 to n do if i mod 2 <> 0 then tong:=tong + i; writeln('Tong cac so le tu 1 den ', n,' = ', tong); end. ``` Hoặc với Python: ``` n = int(input()) tong = 0 for i in range(1, n+1, 2): tong += i print('Tong so le tu 1 den', n, 'la', tong) ``` Giải thích: `i mod 2 <> 0` (hoặc `i % 2 != 0`) dùng để kiểm tra số lẻ; vòng lặp cộng dồn các số lẻ vào biến `tong`.