Viết chương trình nhập vào mảng 1 chiều không quá 100 phần tử. Đếm số phần tử chia hết cho 3 và 5 trong mảng.
Giải giúp em ạ...
Xem chi tiết
Kiểu dữ liệu có cấu trúc
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']=');readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5=0) then inc(dem);
writeln('So phan tu chia het cho 3 va 5 trong day la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập 2 số nguyên x,b in ra màn hình các số lẻ có trong khoảng từ 1-> b x in ra màn hình tổng các số lẻ cs trong khoảng từ 1-> b x giúp mik vs mai mik kiểm tra rrrr
Xem chi tiết
b x = b*x hay là như nào vậy giải thích chỗ này xem
Đúng 0
Bình luận (1)
uses crt;
var x,b,i,t:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap b='); readln(b);
writeln('Cac so le la: ');
t:=0;
for i:=1 to b+x do
if i mod 2=1 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac so le la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
Cho 2 tệp in.txt và out.txt:
1. Trên tệp in.txt lưu giá trị n, tính n! sau đó ghi lại kết quả vào tệp out.txt
2. Trên tệp in.txt ghi tên 4 học sinh trên 4 dòng, đọc và ghi lại tên của các học sinh đó trên tệp out.txt
Bài 1:
Program HOC24;
const fi='in.txt'
fo='out.txt'
var f: text;
i,n: integer;
t: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
t:=1;
for i:=1 to n do t:=t*i;
write(f,t);
close(f);
end;
begin
ip;
out;
end.
Bài 2:
Program HOC24;
const fi='in.txt'
fo='out.txt'
var f: text;
i: byte;
a: array[1..4] of string;
procedure ip;
begin
assign(f,fi);
reset(f);
for i:=1 to 4 do readln(f,a[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 4 do writeln(f,a[i]);
close(f);
end;
begin
ip;
out;
end.
Đúng 1
Bình luận (0)
1:
const fi='inp.txt'
fo='out.txt'
var n,i:integer;
s:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(f2,s:4:2);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
H24
20 tháng 2 2021 lúc 1:28
H24
20 tháng 2 2021 lúc 1:19
H24
20 tháng 2 2021 lúc 1:16
1, Cho day B gom n phan tu thuc. Tim GTNN cua day?
2, Cho day gom n phan tu ≠ nhau. Hay sap xep day thanh day giam dan.
Câu 1:
uses crt;
var b:array[1..100]of real;
i,n:integer;
min:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
writeln('Gia tri nho nhat la: ',min:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day giam dan la: ');
for i:=1 to n do write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Cho mang 1 chieu gom cac phan tu nguyen. Viet chuong trinh nhap gtri cho tung phan tu. Ddeems va hien ra nhung phan tu co gtri \(⋮\) 3.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
inc(dem);
write(a[i]:4);
end;
writeln;
writeln('So phan tu chia het cho 3 la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
Cho dãy A gồm N số nguyên A1...An các giá trị (ai)bé hơn 1000 hãy tính tổng các phần tử chia hết cho 3( dùng hàm random)
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
randomize;
write('Nhap n='); readln(n);
for i:=1 to n do
a[i]:=random(999)+1;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
readln;
end.
Đúng 2
Bình luận (0)
Cho input đầu vào là mảng A có N phần tử ( 1 ≤ N ≤ 5, -102 ≤ Ai ≤ 102 )a/ Hãy cho biết mảng A có tạo thành một cấp số cộng hay không?b/ Hãy cho biết mảng A có đối sánh với nhau hay không? ( 1 mảng được gọi là đối sánh là nếu mảng đó có tính chất xen kẻn 1 số dương theo sau là 1 số âm )
Giúp em với ạ :<
uses crt;
var a:array[1..5]of integer;
i,n,x:integer;
kt,kt1:boolean;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=5);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (-100<=a[i]) and (a[i]<=100);
end;
kt:=true;
x:=abs(a[2]-a[1]);
for i:=2 to n do
if x<>abs(a[i]-a[i-1]) then
begin
kt:=false;
break;
end;
if kt=true then writeln('Day la day cap so cong')
else writeln('Day khong la day cap so cong');
kt1:=true;
for i:=1 to n do
if ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then
begin
kt1:=false;
break;
end;
if kt1=true then writeln('Mang A co doi sanh voi nhau')
else writeln('Mang A khong doi sanh voi nhau');
readln;
end.
Đúng 0
Bình luận (0)