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 Hoàng Tân Bảo
Xem chi tiết
Rin Huỳnh
14 tháng 10 2021 lúc 13:14

Câu 1:

Uses crt;

Var a,b:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Writeln((a+b)/(a-b));

Readln

End.

 

Rin Huỳnh
14 tháng 10 2021 lúc 13:15

Câu 2:

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Readln(c);

Writeln(a*a+b*b+c*c);

Readln

End.

Rin Huỳnh
14 tháng 10 2021 lúc 13:16

Câu 5:

Uses crt;

Var a,b,c,d:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Readln(c);

Readln(d);

Writeln((a+b+c+d)/4);

Readln

End.

 

Mỹ Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2020 lúc 21:16

Câu 1: 

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

writeln('Chu vi hinh vuong la: ',p:4:2);

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

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

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

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Uyên Tường
Xem chi tiết
Minh Lệ
23 tháng 11 2021 lúc 22:53

Program HOC24;

var tbc: real;

a,b: integer;

begin

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

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

tbc:=(a+b)/2;

write('Trung binh cong cua 2 so nguyen la: ',tbc:8:2);

readln

end.

Thư Huỳnhh
Xem chi tiết
Nguyễn Anh Dũng
9 tháng 12 2021 lúc 20:04

var m,n: integer;

begin

    writeln(' nhap so nguyen a: ');

    read(a);

    writeln(' nhap so nguyen b: ');

    read(b);

    writeln((m + n)/2);

    readln;

end.

Bùi Trần Nghĩa Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:17

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)/3;

return 0;

}

Đỗ Thành Nhân
3 tháng 5 lúc 11:14

nbbnbnbbnn\(\dfrac{^{ }}{ }\)

Nguyễn Thuận
Xem chi tiết
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

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

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

Anthea2148
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:29

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Nguyễn Cát Tường
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)