Viết chương trình tính tổng, tích các số tự nhiên nhập vào từ bàn phím (sử dụng biến mảng)
Viết chương trình tính tổng, tích các số tự nhiên nhập vào từ bàn phím (sử dụng biến mảng)
tham khảo
program bt;
uses crt;
var a:array[1..1000] of integer;
i,n,tong,tich:integer;
begin
clrscr;
write('Do dai cua day la:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0; tich:=1;
for i:=1 to n do
begin
tong:=tong + a[i];
tich:=tich*a[i];
end;
write('tong cac so tu nhien nhap tu ban phim:',tong);
writeln;
write('tich cac so tu nhien nhap tu ban phim:',tich);
readln
end.
Câu 5:
uses crt;
var s,t,i,n:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln(t);
writeln(s);
readln;
end.
Var m1,m2,m3,tb:real;
Begin
Write('Nhap diem mon 1 = ');readln(m1);
Write('Nhap diem mon 2 = ');readln(m2);
Write('Nhap diem mon 3 = ');readln(m3);
tb:=(m1+m2+m3)/3;
If (tb>=5) and (m1>=4) and (m2>=4) and (m3>=4) then write('Ket qua: Dau')
Else write('Ket qua: Rot');
Readln;
End.
Câu 5:
uses crt;
var s,t,i,n:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln(t);
writeln(s);
readln;
end.
Lập trình nhập từ bàn phím 1 xâu . Đưa ra màn hình xâu thu được gồm các kí tự ko phải là nguyên âm
Lập trình nhập từ bàn phím 1 xâu . Đưa ra màn hình xâu thu được gồm các kí tự ko phải là nguyên âm
Viết chương trình và tích số N đầu tiên và sử dụng biến mảng
viết chương trình pascal nhập vào từ bàn phím điểm trung bình của 10 học sinh đếm và báo ra màn hình có bao nhiêu học sinh có số điểm trung bình nhỏ hơn 5?
Tham khảo:
program tinh_diem;
uses crt;
var N:array[1..10] of integer;
i,s: integer;
begin
for i:=1 to 10 do
begin
write('nhap diem trung binh cua hoc sinh thu ',i); readln(N[i]);
if N[i]<5 then s:=s+1;
end;
write('so hoc sinh co diem trung binh duoi 5 la: ',s);
readln;
end.
cho tệp văn bản chứa các số nguyên có tên là SONGUYEN thông báo ra màn hình các số nguyên tố có trong tệp
uses crt;
const fi='songuyen.inp'
var f1:text;
a:array[1..100]of integer;
i,n,kt,j:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
close(f1);
readln;
end.
Cíu tớ với ạ 🥺 phần bài tập ai làm được bài nào giúp tớ với nha