Bài 6. Câu lệnh điều kiện

Giang Lương
Xem chi tiết
Minh Lệ
1 tháng 12 2022 lúc 17:22

Program HOC24;

Var a,b: integer;

begin

write('Nhap 2 so nguyen : '); readln(a,b);

write('Hieu so lon va so nho la: ',abs(a-b));

readln

end.

Bình luận (0)
Vu Tran Van
Xem chi tiết
Văn Trần
29 tháng 11 2022 lúc 21:17

Khét thế mang điện thoại lên lớp luôn mà ko sợ cô bới

Bình luận (0)
Văn Trần
29 tháng 11 2022 lúc 21:18

Xin lỗi nhé mik ko thấy đc

Bình luận (1)
Vu Tran Van
29 tháng 11 2022 lúc 21:23

Trời ơi ai đó cứu tôi đi 

Bình luận (2)
Nguyễn Thanh Anh
Xem chi tiết
Minh Lệ
24 tháng 11 2022 lúc 23:00

Program HOC24;

var i,d,n: integer;

t: longint;

begin

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

write('Cac so chan tu 1 den ',n,' la: ');

t:=0; d:=0;

for i:=1 to n do

if i mod 2=0 then

begin

write(i,' ');

d:=d+1;

t:=t+i;

end;

writeln;

writeln('Co ',d,' so chan tu 1 den ',n);

writeln('Tong cac so chan do la: ',t);

if t mod 2=0 then write('Tong do la chan') else ('Tong do la le');

readln

end.

Bình luận (0)
trần sở khanh
Xem chi tiết
Thiên Leo
Xem chi tiết
Dạ Thiên Nguyệt
Xem chi tiết
Khai Hoan Nguyen
1 tháng 9 2022 lúc 10:58

bạn học python hay pascal á

Bình luận (0)
Thịnh Bùi
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 7 2022 lúc 12:26

uses crt;

var a:array[1..10]of real;

i,n:integer;

t:real;

begin

clrscr;

n:=4;

for i:=1 to n do readln(a[i]);

t:=t+a[1]+a[2]+a[3]*2+a[4]*3;

writeln(t/7:4:2);

readln;

end.

Bình luận (0)
Nguyễn Khôi Nguyên
Xem chi tiết
Hoàng Minh Tú
7 tháng 7 2022 lúc 19:42

Bạn muốn code hay gì ạ ?

 

Bình luận (0)
Nguyễn Khôi Nguyên
Xem chi tiết
Nguyễn Khôi Nguyên
25 tháng 6 2022 lúc 22:36

Giúp tui ik mn =(( tui bị cô chửi tui buồn lắm

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 6 2022 lúc 8:17

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

readln(a,b,c);

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

begin

kt:=0;

if (sqr(a)=sqr(b)+sqr(c)) then kt:=1;

if (sqr(b)=sqr(a)+sqr(c)) then kt:=1;

if (sqr(c)=sqr(a)+sqr(b)) then kt:=1;

if (a=b) and (b<>c) and (a<>c) then kt:=2;

if (a=c) and (a<>b) and (c<>b) then kt:=2;

if (b=c) and (b<>a) and (c<>a) then kt:=2;

if (a=b) and (b=c) then kt:=3;

if kt=0 then write('Tam giac thuong')

else if kt=1 then write('Tam giac vuong')

else if kt=2 then write('Tam giac can')

else if kt=3 then write('Tam giac deu');

end

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

readln;

end.

Bình luận (0)
Nguyễn Khôi Nguyên
Xem chi tiết
Nguyễn Khôi Nguyên
25 tháng 6 2022 lúc 22:32

Giúp tui ik mà mn xin mn ngừoi đấy =((

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 6 2022 lúc 8:17

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

readln(a,b,c);

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

begin

kt:=0;

if (sqr(a)=sqr(b)+sqr(c)) then kt:=1;

if (sqr(b)=sqr(a)+sqr(c)) then kt:=1;

if (sqr(c)=sqr(a)+sqr(b)) then kt:=1;

if (a=b) and (b<>c) and (a<>c) then kt:=2;

if (a=c) and (a<>b) and (c<>b) then kt:=2;

if (b=c) and (b<>a) and (c<>a) then kt:=2;

if (a=b) and (b=c) then kt:=3;

if kt=0 then write('Tam giac thuong')

else if kt=1 then write('Tam giac vuong')

else if kt=2 then write('Tam giac can')

else if kt=3 then write('Tam giac deu');

end

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

readln;

end.

Bình luận (0)