viết chương trình :Tìm UCLN của 2 số a và b (a và b là các số nhập từ bàn phím).
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.
3 tháng 4 2021
program tim_chu_so;
uses crt;
var i,n,csln:longint;
k:integer;
a:array[1..1000]of longint;
st:string;
begin
clrscr;
write('nhap so n:');readln(n);
str(n,st);
val(st,a[i]);
csln:=a[1];
for i:=1 to length(st) do
if csln<a[i] then csln:=a[i];
writeln('chu so lon nhat cua so ',n,' la:',csln);
readln;
end.
3 tháng 4 2021
Câu 1:
uses crt;
var n,i,d,x,y,max:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat la: ',max);
readln;
end.
BV
1
14 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<max(a,b);
return 0;
}
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;
}
các bạn có thể trả lời nhanh đc ko??? mk đag cần gấp.
program UCLN;
uses crt;
var a,b:integer;
begin
clrscr;
writeln('Moi ban nhap so a:=');readln(a);
writeln('Hay nhap so b:='):readln(b);
While a<>b do
if (a>b) then a:=a-b else b:=b-a;
write('Uoc chung lon nhat la ',a or b);
readln;
end.