Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Bài 2:
Program hotrotinhoc;
var t,a,b,c: integer;
function ucln(x,y: integer): integer;
var tg: integer;
begin
while y<>0 do
begin
tg:=x mod y;
x:=y;
y:=tg;
end;
ucln:=x;
end;
begin
write('Nhap 3 so a,b,c : '); readln(a,b,c);
writeln('Uoc chung lon nhat cua 3 so la :',ucln(ucln(a,b),c));
t:=(a*b) div ucln(a,b);
t:=(t*c) div ucln(ucln(a,b),c);
write('Boi chung nho nhat cua 3 so la :',t);
readln
end.
Bài 1:
Program hotrotinhoc;
var n: integer;
t: longint;
begin
t:=0;
write('Nhap so nguyen :'); readln(n);
if n>0 then t:=t+n;
while n<>0 do
begin
write('Nhap so nguyen :'); readln(n);
if n>0 then t:=t+n;
end;
write('Tong cac so lon hon 0 vua nhap la :', t);
readln
end.
bạn ơi! Có thể cho mình hỏi bn dùng phần mềm lập trình gì được không ạ ?
Bài 1:
uses crt;
var a,b,cv,dt:real;
begin
clrscr;
repeat
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
if (a<=0) or (b<=0) or (a<b) then writeln('vui long nhap lai');
until (a>0) and (b>0) and (a>=b);
cv:=(a+b)*2;
dt:=a*b;
writeln('chu vi cua hinh chu nhat la: ',cv:4:2);
writeln('dien tich cua hinh chu nhat la: ',dt:4:2);
readln;
end.
Bài 2:
uses crt;
var r,s:real;
begin
clrscr;
repeat
write('nhap ban kinh:'); readln(r);
if r<=0 then writeln('vui long nhap lai');
until r>0;
s:=sqr(r)*pi;
writeln('dien tich hinh tron la: ',s:4:2);
readln;
end.
Bài 3:
uses crt;
var a,b,c,cv,p,s:real;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
write('nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
writeln('chu vi tam giac la: ',cv:4:2);
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('dien tich tam giac la: ',s:4:2);
end
else writeln('Khong la ba canh cua mot tam giac');
end
else writeln('Khong la ba canh cua mot tam giac');
readln;
end.
Bài 4:
uses crt;
var a,b:real;
begin
clrscr;
write('nhap he so bac nhat='); readln(a);
write('nhap hang tu tu do='); readln(b);
if a=0 then
if b=0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem')
else writeln('Phuong trinh co nghiem x=',-b/a:4:2);
readln;
end.
Bài 5:
Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); Writeln('----------------------------------------------------------------------'); Write('nhap a='); readln(a);
Write('nhap b='); readln(b);
If a<>0 then
If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)
Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)
Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem')
Else writeln('Bat phuong trinh vo nghiem');
Readln;
End.
a) x mod 4=0
b) y mod 5<>0
c) (a+b>c) and (a+c>b) and (b+c>a)