Viết chương trình nhập vào từ bàn phím số tự nhiên n. Tìm k lớn nhất sao cho 3k<n.
Những câu hỏi liên quan
Viết chương trình nhập n số tự nhiên từ bàn phím, tìm số lớn nhất trong dãy
Đề 1: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số nhỏ nhất lên màn hình. Đề 2: Tự luận: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số lớn nhất lên màn hình.
Đề 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.
Đúng 1
Bình luận (0)
Đề 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
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];
writeln(max);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1dãy n số (n được nhập từ bàn phím) tìm giá trị lớn nhất trong dãy vừa lập
var a:array[1..100]of longint;
n,i,max:longint;
begin
read(n); {nhập số phần tử trong dãy}
for i:=1 to n do read(a[i]); {nhập giá trị các phần tử}
max:=a[1]; {gán max=giá trị của phần tử thứ nhất}
for i:=2 to n do
if a[i]>max then max:=a[i];
write('gia tri lon nhat trong day la: ',max);
end.
Ấn đồng thời alt+f5 để xem kq nhé!!!
Đánh giá zùm nhe :)
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
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];
writeln('So lon nhat la: ',max);
readln;
end.
Đúng 0
Bình luận (0)
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
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];
writeln(max);
readln;
end.
Đúng 0
Bình luận (0)
b)
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.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 10 số nguyên từ bàn phím , tìm ra số lớn nhất
program TimMax;
uses crt;
var a:array[1..100] of byte;
i,Max: byte;
begin
clrscr;
for i:=1 to 10 do
begin
writeln('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do write(a[i]:5);
Max:=a[1];
for i:=1 to 10 do
if Max < a[i] then Max:=a[i];
writeln('So lon nhat cua day so la:', Max);
readln
end.
Đúng 3
Bình luận (0)
Var a
so,max,i:integer;
Begin
max:=so;
For i:=1 to 10 do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so > max then max:=so;
End;
Write('So lon nhat la ',max);
Readln
End.
Đúng 0
Bình luận (0)
Viết chương trình tính tích của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím.
tham khảo
Đề bài: Viết chương trình tính n! với n là số tự nhiên không âm nhập vào từ bàn phím Để làm được bài này, trước tiên các bạn cần nhớ lại công thức tính n! đã. Theo định nghĩa giai thừa ta có: 0! = 1 n! = 1.2.3…n Vậy là ta có công thức rồi. Nhìn vào công thức ta thấy với n = 0 thì dễ rồi, nếu n > 0 thì nó là tích các số từ 1 đến n.
Đúng 1
Bình luận (0)
TK
Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' so dau tien la' , S );
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.
Đúng 1
Bình luận (0)
viết chương trình nhập vào 1 dãy gồm n số nguyên (n được nhập từ bàn phím). Tìm giá trị lớn nhất rtong dãy vừa nhập mà in ra màn hình
Program HOC24;
var a: array[1..32000] of integer;
i,max,,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if a[i]<max then max:=a[i];
write('So lon nhat la: ',max);
readln
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..1000000] of longint;
n,i,max:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
max:=a[1];
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
end;
writeln('GTLN: ',max);
readln;
end.
Đúng 0
Bình luận (0)
8 tháng 3 2022 lúc 18:51
Viết chương trình tính tổng của N số tự đầu tiên với N là số tự nhiên được nhập vào từ bàn phím
tham khảo
Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' so dau tien la' , S );
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.
Đúng 2
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
long long i,n,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++) t+=i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
Đúng 1
Bình luận (1)
a) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
b) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.
program hello;
uses crt;
Var n,i,j,k: integer;
a: array[1..50] of integer;
begin;
a[1]:=k;
Readln(n);
For i:=1 to n do
Begin;
Writeln('nhap 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 k:=a[j];
Writeln('gia tri lon nhat la', k);
end.