Viet chuong trinh nhap vao N so tu ban phim. Tinh tong,tich,hieu cac so vua nhap vao
Những câu hỏi liên quan
viet chuong trinh nhap vao cac so nguyen tu ban phim va tinh tong cua chung.Chuong trinh dung lai khi tong lon hon hoac bang a(a la so nhap tu ban phim)va thong bao tong do ra man hinh(Free Pascal)
Giup minh voi
viet chuong trinh nhap vao mang so nguyen a(toi da 100 phan tu) tu ban phim in len man hinh cac phan tu chia het cho K (khong duoc nhap vao tu ban phim khi chay chuong trinh) trong mang
viet chuong trinh nhap vao so mguyen n va day so gom n la so nguyen tu ban phim in ra man hinh so lon nhat trong day so nguyen vua nhap
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do if max<a[i] then max:=a[i];
write('So lon nhat la:',max');
readln
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
viet chuong trinh tinh tong cac so co gia tri khac nhau trong day n so nguyen (1<n<1000) duoc nhap tu ban phim
trinh viet chuong nhap vao 1 mang 1 chieu gom n phan tu ( voi n duoc nhap vao tu ban phim ). Hay thuc hien cac cong viec sau:
-Nhap/xuar mang
- Dem co bao nhieu phan tu la so chan trong mang
-Kiem tra xem mang co phai la mang le hay khong ? ( tat ca cac phan tu mang la so le )
Bạn ơi phải viết bằng ngôn ngữ lập trình gì vậy.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
1 viet chuong trinh in ra man hinh bang cuu chuong 2
2 viet chuong trinh tinh tong S=1/1+1/2+.......+1/n voi gia tri n nhap vao tu ban phim
lam on giup minh voi thu nam minh kiem tra roi
Đúng 0
Bình luận (0)
Sử dụng For...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0;
Đối với t: = 1 đến n làm s: = s + 1 / t;
writeln('Tổng s là',s);
readln
kết thúc.
Sử dụng While...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0; t: = 1;
Câu 2:Trong khi t <= n làm
bắt đầu t: = t + 1;
s: = s + 1 / t kết thúc;
writeln('Tổng s là',s);
readln
kết thúc.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
viet chuong trinh nhap vao so nguyen N. tinh va in ra man hinh tong cac so le trong pham vi N
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap vao 1 xau Sva 1 ki tu bat ki tu ban phim . kiem tra trong xau vua nhap co bao nhiweu ki tu vua nhap , xoa tat ca ki tu do trong xau S.
MONG MOI NGUOI GIUP DO ;
uses crt;
var s:string;
ktu:char;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
write('Nhap ki tu:'); readln(ktu);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=ktu then inc(dem);
writeln('So ki tu ',ktu,' trong xau ',s,' la: ',dem);
for i:=1 to d do
if s[i]=ktu then delete(s,i,1);
writeln('Xau sau khi xoa cac ki tu ',ktu,' la: ',s);
readln;
end.
Đúng 0
Bình luận (0)