Những câu hỏi liên quan
Nhật Tiến Sì
Xem chi tiết
Teresa Amy
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 22:12

uses crt;

var m,n:integer;

begin

clrscr;

readln(m,n);

if (m>n) cout<<"m lon hon"

else cout<<"n lon hon";

readln;

end.

Nguyễn Hoàng Long
Xem chi tiết
Nguyễn Hoàng Long
24 tháng 3 2023 lúc 20:30

Pls giúp vs ạ !!!

Phía sau một cô gái
24 tháng 3 2023 lúc 20:35

program TinhTong;

uses crt;

var

     n, i, tong: integer;

begin

     clrscr;

     write('Nhap vao so nguyen duong n: ');

     readln(n);

     tong := 0;

     for i := 1 to n-1 do begin

          if i mod 2 <> 0 then

               tong := tong + i;

     end;

     writeln('Tong cac so khong chia het cho 2 la: ', tong);

     readln;

end.

Yết Thiên
Xem chi tiết
Trúc Giang
12 tháng 5 2021 lúc 9:55

Câu 2:

Program nii;

Uses crt;

Var a,b,c,A:integer;

Begin

Write ('nhap a');

Readln (a);

Write ('nhap b');

Readln (b);

Write ('nhap c');

Readln (c);

A:=a;

If A<b then A:=b;

If A<c then A:=c;

Write ('Ket qua',A);

Readln;

End.

Trúc Giang
12 tháng 5 2021 lúc 9:51

Câu 1

Program ntg;

Uses crt;

Var A,x,y:integer;

Begin

Write ('nhap x');

Readln (x);

Write ('nhap y');

Readln ('y');

A:=x+y;

Write ('Ket qua',A);

Readln;

End.

 

Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:43

Câu 2: 

uses crt;

var a,b,c,max:integer;

begin

clrscr;

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

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

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

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('So lon nhat trong 3 so la: ',max);

readln;

end.

mistud
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:17

2:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

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

if (n%i==0) cout<<i<<" ";

return 0;

}

nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 10 2021 lúc 0:31

2: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int a;

cin>>st;

cin>>a;

cout<<"Xin chao "<<st<<endl;

cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";

return 0;

}

Dang Hien
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:53

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;

}

le thi minh phuong
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 1 2021 lúc 20:57

uses crt;

var n,i,d,x,j,tam:longint;

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

st:string;

begin

clrscr;

repeat

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

until n>0;

str(n,st);

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],a[i],x);

end;

for i:=1 to d-1 do 

  for j:=i+1 to d do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to d do 

  write(a[i]);

readln;

end.

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.

Vy Thea
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2022 lúc 0:14

Input: a,b

Output: max,min của hai số a,b