cho dãy số N và 1 số nguyên k. tính tổng các phần tử là bội số của 3 và 5
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Câu 2:
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln('Xau ',st,' co ',length(st),' phan tu');
readln;
end.
uses crt;
const fi='bai1.inp';
var a,b:integer;
f:text;
begin
clrscr;
assign(f,fi); rewrite(f);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln(f,'a=',a);
writeln(f,'b=',b);
writeln(f,a,'+',b,'=',a+b);
close(f);
end.
const fi='ucln.inp';
fo='ucln.out';
var f1,f2:text;
a,b,i,ucln:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if a<b then
begin
ucln:=1;
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end
else begin
ucln:=1;
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
writeln(f2,ucln);
close(f1);
close(f2);
end.
Program HOC24;
var i,n,k: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];
write('Tong cac phan tu la boi cua 3 va 5 la: ',t);
readln
end.