Cho dãy số a gồm n phần tử b.kỳ nhập từ bàn phím, viết chương trình tính tổng các số chia hết cho 3 và 5
Viết chương trình tìm n nhỏ nhất để tổng các số từ 1 tới n lớn hơn 1000
Cho dãy số a gồm n phần tử b.kỳ nhập từ bàn phím, viết chương trình tính tổng các số chia hết cho 3 và 5
Viết chương trình tìm n nhỏ nhất để tổng các số từ 1 tới n lớn hơn 1000
a)
program a;
uses crt;
var A: array[1..10000] of longint;
n,i,s: longint;
begin clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
s:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’] = ‘); readln(A[i]);
if (A[i] mod 3 = 0) and (A[i] mod 5 = 0) then s:=s+A[i];
end;
write(‘Tong la: ‘,s);
readln;
end.
b)
program b;
uses crt;
var T,n:integer;
Begin clrscr;
T:=0, n:=0;
while T<=1500 do
begin
n:=n+1; T:=T+n;
end;
write(‘Tong T= ’,S,‘ va ’,n,’ la so tu nhien nho nhat sao cho S>1500’);
Học tốt!
Bài 1:
Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap so luong phan tu: ‘); Readln(n);
s:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If (A[i] mod 3 = 0) and (A[i] mod 5 = 0) then s:=s+A[i];
End;
Write(‘Tong la: ‘,s);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var n,s: longint;
Begin
Clrscr;
n:=1; s:=0;
While s<=1000 do
Begin
s:=s+n;
inc(n);
End;
Write(‘N = ‘,n);
Readln
End.