viết chương trình. Nhập vào ba số thực bất kì, báo ra màn hình giá trị lớn nhất trong ba số đó.
Những câu hỏi liên quan
1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị
2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá trị số nhỏ nhất có trong dãy vừa nhập.
3. Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, tính và thông báo ra màn hình tổng các số có giá trị là chẵn có trong dãy vừa nhập.
4. Viết chương trình nhập vào hai xâu bất kỳ, thông báo ra màn hình xấu có độ dài ngắn hơn, n...
Đọc tiếp
1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị 2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá trị số nhỏ nhất có trong dãy vừa nhập. 3. Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, tính và thông báo ra màn hình tổng các số có giá trị là chẵn có trong dãy vừa nhập. 4. Viết chương trình nhập vào hai xâu bất kỳ, thông báo ra màn hình xấu có độ dài ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập sau. 5. Viết chương trình nhập vào một xâu, in ra màn hình xấu đó nhưng được viết theo thứ tử ngược lai
viết chương trình nhập từ bàn phím 20 số tự nhiên bất kì. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
Đúng 1
Bình luận (0)
viết chương trình nhập từ bàn phím 20 số tự nhiên bất kì. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó.
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
Đúng 1
Bình luận (0)
giúp em với 2 câu thôi ạ :
viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt
viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con
1:
uses crt;
const fi='ketqua.txt'
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(f1,st);
close(f1);
end.
Đúng 0
Bình luận (0)
2:
uses crt;
var a,b,c,d:integer;
{----------chuong-trinh-con-----------------------}
function min(x,y:integer):integer;
begin
if x<y then min:=x
else min:=y;
end;
{---------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(min(a,min(b,min(c,d))));
readln;
end.
Đúng 0
Bình luận (1)
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào từ bàn phím bà số tự nhiên a,b,c: a) thông báo ra màn hình số a là số chẵn hay số lẻ
b)thông báo ra màn hình số b là số chẵn hay số lẻ
c) thông báo ra màn hình số c là số chẵn hay số lẻ
d) thông báo ra số lớn nhất trong ba số đó
Ai giúp mik với ạ
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('nhap ba so:');readln(a,b,c);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,'la so le);
if b mod 2=0 then writeln(b,'la so chan')
else writeln(b,'la so le');
if c mod 2=0 then writeln(c,'la so chan')
else writeln(c,'la so le');
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('so lon nhat trong ba so la:',max);
readln
end.
Đúng 0
Bình luận (0)
Câu 1: Viết chương trình nhập vào một số nguyên bất kì. Thông báo ra màn hình số đó là số chẵn hay số lẻ.
Câu 2: Viết chương trình in ra màn hình các số liên tiếp từ 1 đến 20 mỗi số trên một dòng
Giúp mk vs ạ!!!
Tham khảo nhen
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
Đúng 0
Bình luận (0)
Tham khảo
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
Đúng 0
Bình luận (0)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i;
int main()
{
for (i=1; i<=20; i++) cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)
viết chương trình pascl nhập vào ba số a, b, c và in ra màn hình tích cảu ba số đó ? ( với a b c là số nguyên bất kì được nhập từ bàn phím )
cảm ơn mọi người rất nhiều
uses crt;
var a,b,c:longint;
begin
clrscr;
readln(a,b,c);
writeln(a*b*c);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1 viết chương trình tính giá trị biểu thức với x,y là các số nguyên dc nhập từ bàn phím. In kết quả ra màn hình Caau2 viết chương trình vào 3 số nguyên a,b,c.In ra màn hình số lớn nhất trong 3 số đó
Câu 2:
Program nii;
Uses crt;
Var a,b,c,A:integer;
Begin
Write ('nhap a');
Readln (a);
Write ('nhap b');
Readln (b);
Write ('nhap c');
Readln (c);
A:=a;
If A<b then A:=b;
If A<c then A:=c;
Write ('Ket qua',A);
Readln;
End.
Đúng 2
Bình luận (0)
Câu 1
Program ntg;
Uses crt;
Var A,x,y:integer;
Begin
Write ('nhap x');
Readln (x);
Write ('nhap y');
Readln ('y');
A:=x+y;
Write ('Ket qua',A);
Readln;
End.
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('So lon nhat trong 3 so la: ',max);
readln;
end.
Đúng 0
Bình luận (1)
viết chương trình nhập vào một mảng A gồm n số nguyên (n được nhập từ bàn phím)
in ra màng hình mảng số nguyên vừa nhập mỗi phần tử cách nhau ba khoảng trắng
tìm và in ra màn hình giá trị lớn nhất có trong mảng A vừa nhập. GIÚP EM VỚI MN ƠI!