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.
1:
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<>0 then writeln('Nghiem cua phuong trinh la: ',-b/a:4:2)
else writeln('Phuong trinh vo nghiem');
readln;
end.
2:
uses crt;
var n:real;
begin
clrscr;
write('Nhap n='); readln(n);
if n>=0 then writeln('Can bac hai cua n la: ',trunc(sqrt(n)))
else writeln(n,' khong co can bac hai');
readln;
end.
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 do dai ba canh trong mot tam giac')
else writeln('Day khong la do dai ba canh trong mot tam giac');
readln;
end.
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.
uses crt;
const fo='ketqua1.out';
var a:real;
f1:text;
begin
clrscr;
readln(a);
assign(f1,fo); rewrite(f1);
if (a>0) then writeln(f1,sqrt(a):4:2)
else writeln(f1,sqr(a));
close(f1);
readln;
end.
var a:integer;
begin
write('a = '); readln(a);
if a > 0 then write(sqrt(a)) else write(sqr(a));
readln
end.
1:
uses crt;
var a,b:integer;
s:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (a>0) and (b>0) then
begin
s:=(a*a*a+b*b*b)/(sqrt(a+b));
writeln('A=',s:4:2);
end
else writeln('vui long nhap hai so duong');
readln;
end.
2:
uses crt;
var a,b,s:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a mod 5<>0 then
begin
s:=a*b;
writeln('tich cua hai so la: ',s);
end
else writeln('vui long nhap a khong chia het cho 5');
readln;
end.
3: Bạn xem lại đề , Hình như phải là 2+4+6+...+2*n chứ bạn
#include <bits/stdc++.h>
using namespace std;
int a,b,s1,s2,s;
int main()
{
cin>>a>>b;
s1=0; s2=0;
for (int i=a; i<=b; i++)
{
if (i%2==0) s1+=i;
else s2+=i;
}
cout<<s1<<endl;
cout<<s2;
return 0;
}
if a+b<>0 then write(sqrt(a+b));
if a+b=0 then writeln(-(sqrt(a+b)));
if a+b<0 then writeln( sqrt(a+b));
k chắc nữa
Thank you bạn