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.

uses crt;

var bcnn,i,a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

19 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b<<endl;

cout<<a/b;

return 0;

}

19 tháng 12 2021

Bài 3: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b;

cout<<a/b;

return 0;

}

uses crt;

var n,t1:integer;

s:real;

begin

clrscr;

t1:=0;

s:=1;

repeat

readln\(\left(n\right)\);

if n mod 2=0 then t1:=t1+n

else s:=s*n;

until n=0;

writeln\(\left(t1\right)\);

writeln\(\left(s:4:2\right)\);

readln;

end.

13 tháng 10 2021

13 tháng 10 2021

Cách khác(Dùng bằng C++)

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b<<endl;

cout<<"Tich la:"<<fixed<<setprecision(2)<<a*b;

return 0;

}

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

25 tháng 4 2023

Program HOC24;

var n: integer;

t: longint;

begin

write('Nhap n: '); readln(n);

t:=1;

for i:=1 to n do t:=t*n;

write('5^',n,' = ',t);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<t;

return 0;

}

5 tháng 5 2022

Var a:array[1..200] of real;

i,n,dem:integer;

s,tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

s:=0;

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

6 tháng 4 2023

Uses crt;

Var k: array[1..10] of integer;

i,j,n: byte;

t: integer;

begin clrscr;

Readln(n);

For i:=1 to n do Begin

readln(k[i]);

end;

For i:=1 to n-1 do For j:=i+1 to n do

if k[j] <=k[i] then begin

t:= k[i];

k[i]:=M[j];

k[j]:=t; end;

For i:=1 to n do Write(k[i],';'); readln;

end.