Viết chương trình nhập hai số nguyên a,b bất kỳ từ bàn phím. Tính tích, thương của 2 số nguyên vừa nhập
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
5 tháng 10 2021
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
5 tháng 10 2021
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
AP
25 tháng 7 2021
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT';
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
TM
1
R
24 tháng 11 2021
Used crt;
Var a,b;
Begin
Clrscr;
Writeln(‘Nhap a:’);Readln(a);
Write(‘Nhap b:’);Readln(b);
Clrscr;
Writeln(‘Tong la:’,a+b);
If m>n then writeln(‘Hieu la:’,a-b) else writeln(‘Hieu la:’,b-a);
Writeln(‘Tich la:’,a*b);
If n<>0 then write(‘Thuong la:’,a:b) else if m<>0 then write(‘Thuong la:’,b:a) else write(‘ Ko tinh dc’);
Readln;
End.
Học rnha
18 tháng 10 2021
Câu 3:
#include <bits/stdc++.h>
using namepsace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
18 tháng 10 2021
Câu 3:
#include <bits/stdc++.h>
using namepsace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
18 tháng 10 2021
Câu 3:
#include <bits/stdc++.h>
using namepsace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
mk trân thành cảm ơn ạ!
22 tháng 4 2023
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
NH
4
27 tháng 1 2022
Tham khảo:
uses crt;
var a:array[1..5] of integer;
i,t:integer;
tb:real;
begin
for i:=1 to 5 do readln(a[i]);
t:=0;
for i:=1 to 5 do t:=t+a[i];
tb:=t/5;
write(Tb);
readln;
end.
27 tháng 1 2022
Uses crt;
Var a,b,c,d,e,g:longint;
Begin
Clrscr;
writeln(so thu nhat la);readln(a);
writeln(so thu nhat la);readln(b);
writeln(so thu nhat la);readln(c);
writeln(so thu nhat la);readln(d);
writeln(so thu nhat la);readln(e);
g:=a+b+c+d+e;
Writeln('Tong scua 5 so la',g);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a*b<<endl;
cout<<fixed<<setprecision(2)<<(a*1.0)/(b*1.0);
return 0;
}