Question

Giúp mình gấp : viết phương trình tính rồi đưa ra màn hình. Tổng của các số nguyên trong phạm vi 50. Là các số chia hết cho 5 và là số lẻ

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

Answer 1

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.