Viết ct nhập vào 2 số m, n Sử dụng 2 ct con: Tinh tích 2 số trên Tính tổng 2 số trên Đưa ra màn hình tổng và tích của 2 số trên?
Bài 2. Viết CT nhập vào một mảng n số. In ra màn hình các giá trị tổng, tích các phần tử của dãy. Đếm số lượng các số chẵn và lẻ trong dãy.
program im_14424;
uses crt;
var A: array[1..9999999] of interger;
S,P : integer;
i,n: byte;
begin
clrscr;
S:=0;
P:=0;
for i:=1 to n do
begin
write('Nhap vao phan tu thu: ',i,);
readln(A[i]);
S:=S+A[i]
P:=P*A[i]
end;
writeln(S);
write(P);
readln;
end.
Lập trình nhập vào từ bàn phím 2 số nguyên dương M,N(M<N). Tính và đưa ra màn hình tổng, hiệu, tích, thương của 2 số đó?(in đc lun ạ)
program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.
mk mới làm tổng thui nghen
Program Tong_hieu_tich_thuong;
Uses crt;
Var a:integer;
b:integer;
Begin
clrscr;
write(‘nhap so thu 1 :’);
readln(a);
writeln(‘ban vua nhap so: ‘,a);
write(‘nhap so thu hai :’);
readln(b);
writeln(‘ban vua nhap so thu 2: ‘,b);
Writeln(a,’+’,b,’=’,a+b);
Writeln(a,’-‘,b,’=’,a-b);
Writeln(a,’*’,b,’=’,a*b);
if b<>0 then
Writeln(a,’/’,b,’=’,a/b);
readln;
End.
bạn in ra đc chx mình làm cái mới rùi đó
Bài 1: Viết CT nhập vào 2 số nguyên dương a, b (a<b), tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a đến b.
a) ý tưởng
b) xác định bài toán
c) thuật toán
Bài 2: Ông Ba có số tiền là S, ông gửi tiết kiệm ngân hàng với lãi suất 1.5%/tháng. Hỏi sau 12 tháng gửi (không rút tiền lãi hàng tháng), ông ta được số tiền là bao nhiêu?
Bài 1: Viết CT nhập vào 2 số nguyên dương a, b (a<b), tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a đến b.
a) ý tưởng
b) xác định bài toán
c) thuật toán
Bài 2: Ông Ba có số tiền là S, ông gửi tiết kiệm ngân hàng với lãi suất 1.5%/tháng. Hỏi sau 12 tháng gửi (không rút tiền lãi hàng tháng), ông ta được số tiền là bao nhiêu?
a) ý tưởng
b) xác định bài toán
c) thuật toán
Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím. Giúp em với mọi người ❤️
uses crt;
var a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Viết CT nhập dãy số nguyên A gồm n phần tử (n<=100) . Tính và đưa ra màn hình tổng các số chia hết cho 3 và 5 trong dãy
Var so,n,i:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If (so mod 3 = 0) and (so mod 5 = 0) then
s:=s+so;
End;
Write('Tong la ',s);
Readln;
End.
Giúp mik nhanh nha Câu 1: viết câu lệnh tính tổng s=-1-1/2-1/3-...-1/n với n là số nguyên nhập từ bàn phím Câu 2: Viết ct nhập điểm ktra học kì môn tin học cho N học sinh và in ra màn hình.(N và điểm đc nhập từ bàn phím, sử dụng biến mảng) Câu 3: Viết ct nhập vào mảng các số nguyên A gồm 30 phần tử, các phần tử có gtrị ko quá 32767. Thông báo ra màn hình ptử nhỏ nhất và vị trí trong mảng
Viết chương trình nhập vào số nguyên N lớn hơn 2. Tính và in ra màn hình tổng S với S = 1 + 2 + N Viết trên pytgon
1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N=150). In ra màn hình và ghi ra tệp D:\SO_CHAN.TXT các phần tử là số chẵn.
2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hình và ghi ra tệp D:\HO_TEN.TXT họ tên người đó bằng chữ in hoa.
3. Cho tệp D:\SO_HANG.TXT chứa các cặp số nguyên( mỗi số cách nhau 1 khoảng trắng, mỗi cặp nằm trên 1 dòng. Viết CT tính tổng các cặp số đó, kết quả in ra màn hình và ghi ra tệp D:\KET_QUA.TXT.
4. Cho tệp D:\HO_TEN.TXT chứa họ tên của một số người bằng chữ in thường. Viết CT in ra màn hình và ghi ra tệp D:\HT_HOA.TXT họ tên những người đó bằng chữ in hoa. Giúp mik vs ạ tks nhiều