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
ʍ๏ɲ ȼhąɲ
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:49

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.

Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:50

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.

Vũ Điệu Công
Xem chi tiết
Kiều Vũ Linh
23 tháng 5 2023 lúc 6:18

Var a,b,ta,tb,r,ucln:integer;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

ta:=a;

tb:=b;

While tb <> 0 do

Begin

r:=ta mod tb;

ta:=tb;

tb:=r;

End;

ucln:=ta;

Write('UCLN(',a,' ',b,') = ',ucln);

Readln

End.

Lê thị anh thư
Xem chi tiết
Nguyễn Hoàng Tân Bảo
Xem chi tiết
Nguyễn Đăng Khải Hoàn
14 tháng 10 2021 lúc 9:02

C1:

khai báo:

      program  hieu_a_va_b   ("tự đặt tên cái này ko cần thiết)

      uses crt;

      var a, b : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

             writeln ("hieu cua hai so la: a - b=" , a - b);

        end.

C2:

khai báo:

      program    tinh_ba_so

      uses crt;

      var a, b, c : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

            writeln ("nhap so c");  read(c);

             writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);

        end.

C3:

khai báo:

      program    tinh_ba_so

      uses crt;

      var x, y, z : integer

phần thân:

       begin

            writeln ("nhap so x");  read(x);

            writeln ("nhap so y");  read(y);

            writeln ("nhap so z");  read(z);

             writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);

        end.

nhớ chạy thử chương trình nha. xem có lỗi ko.

(nhớ tick cho mk nha)

 

 

 

 

Nguyễn Hoàng Tân Bảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 10 2021 lúc 23:36

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

haizzz!!
Xem chi tiết
nguyễn an phát
3 tháng 4 2021 lúc 12:02

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.

Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:21

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. 

Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:23

Câu 2: 

uses crt;

var a,b,i,bcnn:longint;

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('Boi chung nho nhat la: ',bcnn);

readln;

end.

lenguyenchihieu
Xem chi tiết
Minh Lệ
10 tháng 5 2023 lúc 20:50

Program HOC24;

var t: longint;

a,b: integer;

function gt(x: integer): longint;

var i: integer; tich: longint;

begin

tich:=1;

for i:=1 to n tich:=tich*i;

gt:=tich;

end;

begin

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

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

t:=gt(a)+gt(b)+gt(a-b);

write('T = ',t);

readln

end.

Kina Kinosu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 10 2021 lúc 23:31

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<a*b*c;

return 0;

}

Thanh Tuyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 2 2021 lúc 13:09

Bài 1: 

function min(a,b:longint):longint;

begin

min:=a;

if min>b then min:=b;

end;

Bài 2: 

function canhhuyen(a,b:real):real;

var c:real;

begin

c:=sqrt(sqr(a)+sqr(b));

canhhuyen:=c;

end;