viết chương trình nhập vào 4 số nguyên a,b,c,d. In ra màn hình số có giá trị lớn nhất. Mình cân gấp.
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
Câu 1:
uses crt;
var a:array[1..5]of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 5 do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Câu 2:
uses crt;
var a:array[1..6]of integer;
min,i:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to 6 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhập
b) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã nhập
a) var a:array[1..1000] of integer;
i,k:integer;
p:longint;
begin
write('k = ');readln(k);
p:=1;
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<30 then p:=p*a[i];
end;
write('Tich la ',p);
readln
end.
b)
var a:array[1..1000] of integer;
i,k:integer;
s:longint;
begin
write('k = ');readln(k);
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<100 then s:=s+a[i];
end;
write('Tong la ',s);
readln
end.
1. Viết chương trình nhập vào một số nguyên dương n. Hãy in ra số nguyên tố nhỏ nhất lớn hơn n. 2. Viết chương trình nhập vào một xâu. In ra màn hình số lớn nhất trong xâu đó.
câu 1
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin ok:=true;
for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin Write('Nhap n: ');
Readln(n); i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln End.
câu 2
uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;
begin clrscr;
write('Nhap xau:');
readln(st);
l:=length(st);
i:=1;
n:=0;
repeat if (st[i] in so) then begin b:=''
repeat b:=b+st[i];
inc(i);
until (not(st[i] in so)) or (i>l);
inc(n);
val(b,a[n],c);
end;
inc(i);
until i>l;
Max:=a[1];
for i:=2 to n do If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
readln;
end.
Nhập vào 3 số tự nhiên A, B, C. Đưa ra tổng của giá trị lớn nhất và giá trị nhỏ nhất của 3 số đó. Dữ liệu: Nhập vào 3 số A, B, C mỗi số trên 1 dòng (1≤ A,B,C ≤100)
Kết quả: Trả ra một số duy nhất là tổng của giá trị lớn nhất và giá trị nhỏ nhất.
Lập trình Scratch
Viết chương trình nhập vào mảng A gồm n nhỏ 1 = 100 các số nguyên tử sau a) tính tích các số chia hết cho 3 b)in ra màn hình giá trị nhỏ nhất chia hết cho 3 và chỉ số của nó c) in ra màn hình các phần tử của mảng đó theo thứ tự ngược lại
uses crt;
var a:array[1..100]of integer;
n,i,t,nn,kt:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=1;
for i:=1 to n do
if a[i] mod 3=0 then t:=t*a[i];
writeln(t);
kt:=0;
nn:=32567;
for i:=1 to n do
if a[i] mod 3=0 then
begin
if nn>a[i] then nn:=a[i];
kt:=1;
end;
if kt=0 then writeln('Khong co so chia het cho 3')
else writeln('So nho nhat chia het cho 3 la: ',nn);
for i:=1 to n do
if nn=a[i] then write(i:4);
writeln;
for i:=n downto 1 do
write(a[i]:4);
readln;
end.
Nhập chương trình nhập vào số phút p. In ra màn hình số giờ, số phút
Input: Gồm 1 dòng chứa số nguyên p .
Output: In ra theo định dạng: <số giờ>:<số phút>.
SAMPLE INPUT 121
SAMPLE OUTPUT 2:1
chương trình C++
#include <bits/stdc++.h>
using namespace std;
int p;
int main()
{
cin>>p;
cout<<p/60<<":"<<p%60;
}
Viết chương trình C++ biết nhập vào một mảng số nguyên. Tìm các phần tử nhỏ nhất của mảng, đưa ra các vị trí tại đó đạt giá trị nhỏ nhất.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,nn;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=1; i<=n; i++) nn=min(nn,a[i]);
cout<<nn<<endl;
for (i=1; i<=n; i++) if (nn==a[i]) cout<<i<<" ";
return 0;
}
