viết chương trình nhập 2 số nguyên từ bàn phím đưa ra màn hình hiệu của số lớn và số nhỏ
viết chương trình nhập 2 số nguyên từ bàn phím đưa ra màn hình hiệu của số lớn và số nhỏ
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.
Các bạn ơi giải giúp mình với sos
Khét thế mang điện thoại lên lớp luôn mà ko sợ cô bới
Bài 1: Viết chương trình Pascal nhập số tự nhiên n xuất ra màn hình
+ Các số chẵn từ 1 đến n
+ Đếm bao nhiêu số chẵn từ 1 đến n
+ Tính tổng các số chẵn đó
+ Xét tổng đó là số chẵn hay lẻ ?
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.
viết chương trình nhập vào điểm trung bình nhập vào từ bàn phím
Câu hỏi như sau hãy viết chương trình máy tính tổng số tiền khách phải thanh toán áp dụng sau đây: nếu tông số tiền khách mua lớn hơn 100 nghìn thì khách phải thanh toán 70% ngược lại khách phải thanh toán 90% giúp em với ạ
Viết chương trình nhập vào một số nguyên dương có không quá 2 chữ số, sau đó in ra số theo Hán – Việt tương ứng
VD: 3: tam
10: thập
16: thập lục
20: nhị thập
99: cửu thập cửu
viết chương trình nhập điểm kiểm tra trong học kì 1 của bạn A và in ra màn hình tbm kết quả xếp loại biết môn tin học gồm 2 điểm hệ số 1, 1 điểm hệ số 2, 1 điểm hệ số 3
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.
Nhập vào năm tháng xét xem tháng đó có bao nhiêu ngày
Nhập vào 3 cạnh xét xem 3 cạnh đó có phải là 3 cạnh của tam giác hay ko. nếu ko thì in ra khong phai la 3 canh cua tam giac, còn nếu có thì in ra là 3 cạnh của tam giác thường,vuông,cân,đều.
Giúp tui ik mn =(( tui bị cô chửi tui buồn lắm
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.
Nhập vào 3 cạnh xét xem 3 cạnh đó là 3 cạnh của tam giác gì trên pascal. Mọi người giúp tui với tui bị cô chửi vì ko làm đc bài này huhu =((.
Giúp tui ik mà mn xin mn ngừoi đấy =((
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.