- Nhập vào số a, b. Hiển thị số nhỏ nhất
vẽ sơ đồ khối
❤
K
Khách
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.
Những câu hỏi liên quan
LD
1 tháng 1 2021
var a,b: real;
begin
write('Nhap a,b: '); readln(a,b);
if a < b then writeln(a:5:2) else if a > b then writeln(b:5:2) else writeln('Khong co');
end.
2 tháng 1 2021
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until a<>b;
if a<b then writeln('So nho nhat la: ',a:4:2)
else writeln('So nho nhat la: ',b:4:2);
readln;
end.
5 tháng 12 2021
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
10 tháng 12 2020
uses crt;
var b:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
writeln('So nho nhat la: ',b[i]);
readln;
end.
26 tháng 5 2021
program max_min;
uses crt;
var i,n,max,min:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
writeln;
max:=a[1];min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);
readln;
end.
7 tháng 6 2021
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.
ML
18 tháng 2 2021
Program HOC24;
var i.n: integer;
a: array[1..250] of integer;
begin
for i:=1 to n do
begin
write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln
end.
18 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<(a+b)*c/2;
return 0;
}
TB
18 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b,c;
int main()
{cin>>a>>b>>c;
cout<<(a+b)*c/2;
return 0;}
7 tháng 12 2016
VD: 2,4,6
- số hàng trăm là 2
- số hàng chục là 4
-số hàng đơn vị là 6
- Tổng các chữ số:2+4+6=12
GIÚP MK VS MK ĐANG CẦN GẤP!!! 
NV
Viết CT nhập vào mảng 1 chiều các số nguyên. a. Tính tổng các số chẵn b. Hiển thị các số ở vị trí lẻ
1
23 tháng 2 2023
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
readln;
end.
20 tháng 4 2021
Đề 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.
20 tháng 4 2021
Đề 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.
Dưới đây là cách vẽ sơ đồ khối cho bài toán: Nhập vào số a, b. Hiển thị số nhỏ nhất.
Các bước trong thuật toán:
Sơ đồ khối minh họa:
Bạn có thể dùng phần mềm như Microsoft Visio, Draw.io, hoặc thậm chí vẽ tay theo mẫu trên.
Nếu muốn, mình có thể giúp bạn tạo file sơ đồ khối cụ thể hơn!