Viết chương trình nhập 3 số bất kì A , B , C . Tìm số lớn nhất ( dùng câu lệnh điều kiện )
Những câu hỏi liên quan
Viết chương trình nhập vào bốn số a b c d sử dụng câu lệnh điều kiện ghi số lớn nhất ra màn hình trong bốn số đó
program TimSoLonNhat;
var a, b, c, d: integer;
begin
writeln('Nhap vao gia tri cua a: ');
readln(a);
writeln('Nhap vao gia tri cua b: ');
readln(b);
writeln('Nhap vao gia tri cua c: ');
readln(c);
writeln('Nhap vao gia tri cua d: ');
readln(d);
if (a > b) and (a > c) and (a > d) then
writeln('So lon nhat la: ', a)
else if (b > a) and (b > c) and (b > d) then
writeln('So lon nhat la: ', b)
else if (c > a) and (c > b) and (c > d) then
writeln('So lon nhat la: ', c)
else
writeln('So lon nhat la: ', d);
readln;
end.
Đúng 1
Bình luận (0)
u 3: sử dụng câu lệnh lặp for và câu lệnh lặp while viết chương trình pascal: A, Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến n B, nhập vào 1 dãy gồm n số bất kì, tính tổng các số dương trong dãy vừa nhập C, nhập vào 1 dãy gồm n số bất kì, đếm trong dãy số vừa nhập có bao nhiêu số k (với k nhập từ bàn phím)
Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
Clrscr;
Writeln(' Phan A ');
Write(' Ban hay nhap 1 so n bat ky: ');
Readln(n);
Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
For i:=1 to n do
If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
Write(' Ban hay nhap 1 so m bat ky: ');
Readln(m);
For i:=1 to m do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
S:= S+A[i];
End;
Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
Write(' Ban hay nhap 1 so d bat ky: ');
Readln(d);
Write(' Ban hay nhap so K: ');
Readln(k);
For i:=1 to n do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
If ((A[i] div k)=1)then t:=t+1;
End;
Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình Python có sử dụng chương trình con giải các bài toán sauCâu 1 (4 đ). Tìm số tự nhiên n lớn nhất thỏa mãn điều kiện sau: 3n^5 – 317na Với a là một số thực bất kì nhập tử bản phim. Câu 2 (4 đ). Số đẹp. Một số nguyên dương được gọi là đẹp nếu tổng binh phương các chữ số của nó (trong dạng biểu diễn thập phân) là một số nguyên tố, Ví dụ: 12 là một số đẹp vì l^2+ 2^2 5 là số nguyên tố.Yêu cầu: cho số nguyên N (IN10^6)....
Đọc tiếp
Viết chương trình Python có sử dụng chương trình con giải các bài toán sau
Câu 1 (4 đ). Tìm số tự nhiên n lớn nhất thỏa mãn điều kiện sau: 3n^5 – 317n<a Với a là một số thực bất kì nhập tử bản phim. Câu 2 (4 đ). Số đẹp. Một số nguyên dương được gọi là đẹp nếu tổng binh phương các chữ số của nó (trong dạng biểu diễn thập phân) là một số nguyên tố, Ví dụ: 12 là một số đẹp vì l^2+ 2^2 = 5 là số nguyên tố.
Yêu cầu: cho số nguyên N (I<=N<=10^6). Hãy cho biết số N có phải là số đẹp không Câu 3 (2 d). Nhập vào 1 dãy N số nguyên a1, a2, ..., an. Tìm số lớn thứ nhì trong dãy đã cho.
Viết chương trình nhập vào biến số abcd sử dụng câu lệnh điều kiện in số lớn nhất ra màn hình trong 4 số đó
program TimSoLonNhat;
var
a, b, c, d, max: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
write('Nhap d: '); readln(d);
max := a;
if b > max then
max := b;
if c > max then
max := c;
if d > max then
max := d;
writeln('So lon nhat la: ', max);
readln;
end.
Đúng 1
Bình luận (0)
program TimSoLonNhat;
var a, b, c, d: integer;
begin
writeln('Nhap vao gia tri cua a: ');
readln(a);
writeln('Nhap vao gia tri cua b: ');
readln(b);
writeln('Nhap vao gia tri cua c: ');
readln(c);
writeln('Nhap vao gia tri cua d: ');
readln(d);
if (a > b) and (a > c) and (a > d) then
writeln('So lon nhat la: ', a)
else if (b > a) and (b > c) and (b > d) then
writeln('So lon nhat la: ', b)
else if (c > a) and (c > b) and (c > d) then
writeln('So lon nhat la: ', c)
else
writeln('So lon nhat la: ', d);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào ba số nguyên bất kì a, b, c. Tìm số lớn nhất của a, b và c.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,ln;
int main()
{
cin>>a>>b>>c;
ln=a;
ln=max(ln,b);
ln=max(ln,c);
cout<<ln;
return 0;
}
Đúng 0
Bình luận (0)
6 tháng 4 2023 lúc 21:36
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then...
Program HOC24;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 3 số nguyên a,b,c và đưa ra màn hình giá trị lớn nhất của 3 số đó (sử dụng câu lệnh if)
a = int(input('Nhập số nguyên a: '))
b = int(input('Nhập số nguyên b: '))
c = int(input('Nhập số nguyên c: '))
if a > b and a > c:
print('Số lớn nhất là a =', a)
elif b > a and b > c:
print('Số lớn nhất là b =', b)
else:
print('Số lớn nhất là c =', c)
Đúng 0
Bình luận (0)
6 tháng 4 2023 lúc 21:38
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then... else…
Var a,b:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
If a > b then write('So lon la ',a:10:2)
Else if b > a then write('So lon la ',b:10:2)
Else write('Hai so bang nhau');
Readln;
End.
Đúng 1
Bình luận (2)
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Program HOC24;
var i,n,max: integer;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
i:=1; max:=-1;
while i<=n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
i:=i+1;
end;
write('So lon nhat la: ',max);
readln
end.
Đúng 1
Bình luận (0)