Những câu hỏi liên quan
Tuấn anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 20:08

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

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

writeln('Dien tich la: ',s:4:2);

end

else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');

readln;

end.

Bình luận (0)
Nguyễn Thị Tươi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 1 2023 lúc 14:56

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then writeln(a*b)

else writeln('Nhap lai');

readln;

end.

Bình luận (0)
Anh Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:13

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

if (b==0) cout<<"Ko tinh duoc";

else 

{

cout<<a+b<<endl;

cout<<a-b<<endl;

cout<<a*b<<endl;

cout<<a/b;

}

return 0;

}

Bình luận (0)
Huy Nguyen
Xem chi tiết
Koro-sensei
26 tháng 12 2020 lúc 14:45

Uses crt;

Var a,b: real;

Begin

Clrscr;

Writeln('Nhap a,b');

Realn(a,b);

If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)

else writeln('Yeu cau nhap lai');

Readln;

End.

Bình luận (1)
Thùy Trang
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
18 tháng 10 2017 lúc 7:24

Bình luận (0)
KhảTâm
9 tháng 12 2020 lúc 20:35

program chia_het;

uses crt;

var a,b:integer;

begin

writeln('Nhap so thu nhat');readln(a);

writeln('Nhap so thu hai');readln(b);

If (a mod b = 0) then writeln('chia het') else writeln('chia khong het');

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa
le thuy linh
Xem chi tiết
Dan_hoang
Xem chi tiết
Bùi Anh Tuấn
15 tháng 12 2020 lúc 19:59

Bình luận (2)
Kiều Vũ Linh
18 tháng 12 2020 lúc 10:17

var hoten,sbd:string;

t,l,h,s:real;

begin

write('Nhap ho ten ');readln(hoten);

write('Nhap so bao danh);readln(sbd);

write('Nhap diem toan = ');readln(t);

write('Nhap diem ly = ');readln(l);

write('Nhap diem hoa = ');readln(h);

s:=t+l+h;

if s >= 15 then write('Ban da trung tuyen')

else write('Ban khong trung tuyen');

readln;

end.

Bình luận (0)
Lê Nguyễn Hoàng Vũ
Xem chi tiết
Nguyễn Anh Dũng
9 tháng 12 2021 lúc 20:11

var t,v,a,dtb: real;

begin

    writeln(' diem mon Toan la: ');

    read(t);

    writeln(' diem mon Van la: ');

    read(v);

    writeln(' diem mon Anh la: ');

    read(a);

    dtb = ( t + v + a)/3

    if ( dtb >= 5 ) then 

           writeln(' duoc len lop');

    else

           writeln(' thi lai');

    readln;

end.

Bình luận (0)