Giải giúp mh nhé mai mh thì rùi mà mh yếu tin lắm huhu.
Câu 1: viết chương trình tính tổng bình phương các số lẻ từ 1 đến n với n được nhập từ bàn phím.
Câu 2: viết chương trình nhập vào n số nguyên tìm số nhỏ nhất trong các số đó in kết quả ra màn hình.
Giải giúp mh nhé mai mh thì rùi mà mh yếu tin lắm huhu. Câu 1: viết chương trình tính tổng bình phương các số lẻ từ 1 đến n với n được nhập từ bàn ph
By Camila
Câu 1:
program Cau_1;
uses crt;
var n,i,T: integer;
Begin
clrscrl;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
if i mod 2=0 then T:=T+i*i;
write(‘Tong binh phuong cac so le = ‘,T);
readln
End.
Câu 2:
program Cau_2;
uses crt;
var n,i,x,min: integer;
Begin
clrscrl;
write(‘Nhap n: ‘); readln(n);
min:=1;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(x);
if min>x then min:=x;
end;
write(‘So nho nhat: ‘,min);
readln
End.
câu 1:
uses crt;
var i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n):
for i:=1 to n do
if i mod 2<>0 then s:=s+sqr(i);
writeln (‘tong la: ‘,s);
readln;
end.
câu 2:
uses crt;
var a: array[1..100] of integer;
i,n,min: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
end;
min:=a[1];
for i:=2 to n do
if min<a[i] then min:=a[i];
writeln (‘so nho nhat la: ‘,min);
readln;
end.