Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Tuấn Dũng
Xem chi tiết
ttanjjiro kamado
20 tháng 1 2022 lúc 17:12

program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.

mk mới làm tổng thui nghen

ttanjjiro kamado
20 tháng 1 2022 lúc 17:19

Program Tong_hieu_tich_thuong;

Uses crt;

Var a:integer;

b:integer;

Begin

clrscr;

write(‘nhap so thu 1 :’);

readln(a);

writeln(‘ban vua nhap so: ‘,a);

write(‘nhap so thu hai :’);

readln(b);

writeln(‘ban vua nhap so thu 2: ‘,b);

Writeln(a,’+’,b,’=’,a+b);

Writeln(a,’-‘,b,’=’,a-b);

Writeln(a,’*’,b,’=’,a*b);

if b<>0 then 

Writeln(a,’/’,b,’=’,a/b);

readln;

End.

ttanjjiro kamado
20 tháng 1 2022 lúc 17:20

bạn in ra đc chx mình làm cái mới rùi đó

nguyễn mạnh đoàn
Xem chi tiết
40. Cao Nguyên Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 11 2021 lúc 23:30

b: 

Input: a,b

Output: UCLN(a,b)

Nguyễn Văn Hùng
Xem chi tiết
Ngô Bá Hùng
25 tháng 4 2023 lúc 23:27

program UocChungLonNhat;
var
  a, b: integer;

function UCLN(a, b: integer): integer;
begin
  if b = 0 then
    UCLN := a
  else
    UCLN := UCLN(b, a mod b);
end;

begin
  write('Nhập số nguyên dương a: ');
  readln(a);
  write('Nhập số nguyên dương b: ');
  readln(b);

  writeln('UCLN của ', a, ' và ', b, ' là ', UCLN(a, b));
end.

Dung
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:25

#include <bits/stdc++.h>

using namespace std;

long long a,b;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>a>>b;

cout<<ucln(a,b);

return 0;

}

Hiền Nguyễn
Xem chi tiết
nguyễn an phát
27 tháng 5 2021 lúc 14:24

a)

program UCLN_va_BCNN;

uses crt;

var a,b,c,r,p:integer;

begin

clrscr;

write('nhap a,b:');readln(a,b);

if a<b then 

begin

c:=a;

a:=b;

b:=c;

end;

p:=a*b;

r:=a mod b;

while r<>0 do

begin

a:=b;

b:=r;

r:=a mod b;

end;

writeln('UCLN la: ',b);

writeln('BCNN la: ',p div b);

readln;

end.

nguyễn an phát
27 tháng 5 2021 lúc 14:30

b)

program fibonaci;

uses crt;

var i,n:integer;

a:array[1..30]of integer;

begin

clrscr;

repeat

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

if (n<1)or(n>30) then writeln('so n phai lon hon hoac bang 1 va nho hon hoac bang 30:);

until (n>=1)and(n<=30);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

a[i]:=a[i-1]+a[i-2];

writeln(n,' so fibonaci dau tien la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Danh Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 7:23

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

Mon_LAK
Xem chi tiết
Mon_LAK
Xem chi tiết
Luân Đào
10 tháng 7 2021 lúc 15:58

var a,b,i,t,s: word;

begin

repeat

writeln('Nhap A,B vao: (cach nhau boi dau Enter)');

readln(a);

read(b);

writeln('Nhap lai gia tri A,B: ');

until (a>=1) and (b>=1) and (a<=10000) and (b<10000);

s:=a+b;

t:=a*b;

if s<t then i:=s else i:=t;

while (s mod i <> 0) or (t mod i <> 0) do i:=i-1;

writeln('UCLN cua A+B va AB: ',i);

writeln('So du khi chia AB cho A+B: ', t mod s);

end.