viet CT nhap 1 so nguyen n khac 0 tu ban phim,viet ra man hinh tat ca cac uoc cua n
Những câu hỏi liên quan
viet chuong trinh nhap 1 so nguyen khac khong tu ban phim,viet ra man hinh cac so tu nhien chan
uses crt;
var n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
write('Cac so chan trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
Đúng 0
Bình luận (0)
program so_tu_nhien_chan;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Cac so chan nho hon hoac bang ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4,' ;');
readln;
end.
Đúng 0
Bình luận (0)
Viet chuong trinh nhap n so nguyen tu ban phim (do dai day so nhap tu ban phim);
a.In ra cac so nguyen duong
b.In ra man hinh cac so ngto trong day so vua nhap
Mn giup ban mik vs giai giup mik bai nay nha
Cam on aj
uses crt;
var a:array[1..100]of integer;
n,i,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so nguyen duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Đúng 0
Bình luận (0)
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
cau 1: viet ct nhap 10 so nguyen tu ban phim ,cho biet so lon nhat (nho nhat) trong cac so do
cau 2:viet ct nhap 20 so nguyen tu ban phim ,tinh tong cac le trong so do
Câu 1:
Program HOC24;
var a: array[1..10] of integer;
min,max,i: integer;
begin
for i:=1 to 10 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
min:=32000; max:=0;
for i:=1 to 10 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la :',max);
write('So nho nhat la : ',min);
readln
end.
Đúng 0
Bình luận (0)
Câu 2:
Program HOC24;
var a: array[1..20] of integer;
t,i: integer;
begin
for i:=1 to 20 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
t:=0;
for i:=1 to 20 do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la :',t);
readln
end.
Đúng 0
Bình luận (0)
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 tinh tong cac so co gia tri khac nhau trong day n so nguyen (1<n<1000) duoc nhap tu ban phim
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 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
nhap vao mot so nguyen N tu ban phim, in ra man hinh tong cac so chan ( hoac le) lien tiep tu 1 den N
1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;
2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.
3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.
Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.
Đúng 0
Bình luận (0)