HJ
1
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
31 tháng 10 2019
Bài 1
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 50 do
t:=t+i;
writeln('tong cua cac so nguyen trong pham vi tu 1 toi 50 la: ',t);
writeln('cac so chia het cho 5 trong khoang tu 1 toi 50 la: ');
for i:=1 to 50 do
if i mod 5=0 then write(i:4);
writeln;
writeln('cac so le trong khoang tu 1 toi 50 la: ');
for i:=1 to 50 do
if i mod 2=1 then write(i:4);
bài 2: Viết phương trình tính y= x^2 + y^2 nếu x>y và xy+y^2x nếu x^2+y^2>xy
uses crt;
var x,y,t,hieu:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if x>y then
begin
t:=sqr(x)+sqr(y);
writeln(t);
end;
if sqr(x)+sqr(y)>x*y then
begin
hieu:=x*y+sqr(y)*x;
writeln(hieu);
end;
readln;
end.
16 tháng 11 2021
Câu 3: Viết câu lệnh rẽ nhánh tìm nghiệm của BPT ax2+bx+c>0 (a>0)
Đáp án :
Program gptb2; Uses crt; Var a,b,c:real; D,X1,X2:real; Begin Clrscr; Write(‘a,b,c:’); Readln(a,b,c); D:=b*b-4*a*c; If D<0 then writeln(‘Phuong trinh vo nghiem ’) Else Begin X1:=(-b-sqrt(D))/(2*a); X2:=-b/a-X1; Writeln(‘X1=’,X1:8:3,’ X2=’,X2:8:3); End; Readln; End.
HT
8 tháng 11 2021
2:
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
if (a<0) cout<<"a la so am";
else cout<<"a khong la so am";
return 0;
}
NC
1
15 tháng 12 2019
Cách 1:
if (x >= 1) or (x <= 0)
then D:= -2*x + 1 else D:= sqr(x) + 2*x + 1;
Cách 2:
if (0 < x) and (x < 1)
then D:= sqr(x) + 2*x +1 else D:= -2*x + 1;
NC
1
23 tháng 10 2018
Cách 1:
if (x > 1) or (x <= -1)
then C:= sqrt(x) + 1 else C:= 2*x - 3;
Cách 2:
if (-1 < x) and (x <= 1)
then C:= 2*x – 3 else C:= sqrt(x) + 1;
uses crt;
var x,y :int64;
begin
clrscr;
write('nhap gia tri cua x: ');
readln(x);
write('nhap gia tri cua y: ');
readln(y);
if (x>= y ) then write('S = ', x+y)
else write ('S = ', x-y);
readln;
end.