program dgv;

uses crt;

var x,y,z,n,i: integer;

p,S,A: real;

begin

clrscr;

writeln('Nhap x: '); read(x);

writeln('Nhap y: '); read(y);

writeln('Nhap z: '); read(z);

writeln('Nhap n: '); read(n);

if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');

if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');

if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');

if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');

if n mod 3 <> 1 then writeln('Tong khong co quy luat') else

begin

S:=0;

for i:= 0 to (n-1)/3 do

S:= S+(3i+1);

writeln('S = ',S);

A:=0;

p:=1;

for i:=1 to n do

begin

p:= p*(x/(x+y));

A:=A+p;

end;

writeln('A = ',A);

readln

end.

program tamgiac;

uses crt;

var a,b,c:integer;

begin

write('Nhap chieu dai 3 canh tam giac:'); readln (a,b,c);

if (a=b) and (b=c) and (a=c) then write ('Tam giac deu');

if (a=b) or (b=c) or (a=c) then write('Tam giac can');

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then write('Tam giac vuong');

readln

end.

Chúc bạn học tốt ^^

___Gió Ấm___

nếu vậy mình nhập 45 45 90 thì phải ra tam giác v cân bạn

còn bn chỉ ra đc trg hợp bt thôi

lag

3) Program Sara_Trang;

uses crt;

var x:integer;

Begin

clrscr;

Write('Nhap so x:'); Readln(x);

If x>0 then Writeln('La so duong');

If x<0 then Writeln('Khong la so duong');

If x=0 then Writeln(' Khong la so duong cung khong la so am');

Readln

End.

Giúp tui với a Mai tui kiểm tra rồi

Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.

Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.

Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.

what dờ phắc

giúp mình với ạ

1.

use crt;
Var a, b: real;
Begin
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
if a<b then write('so a nho hon') else write('so b nho hon');
readln;
end.

2. a và b có khác nhau?

uses crt;

var a,b: integer;

begin

clrscr;

readln(a);

readln(b);

if a>b then writeln(a,' ',b)

else writeln(b,' ',a);

readln;

end.

(không đầy đủ lắm đâu)

3.

var a,b,c,max : integer;


Begin

writeln('Tim MAX cua 3 so a,b,c');

write('Nhap so a :');readln(a);
write('Nhap so b :');readln(b);
write('Nhap so c :');readln(c);

max:= a;

if max < b then max := b;
if max < c then max := c;

writeln( 'So Max trong 3 so la : ', max );

readln;

end.

4.

var n:integer;
begin
wirite ( 'nhap gia tri cua x: ' );
readln (n);
if x mod 2 = 0 then write ( 'x la so chan' )
else wirite ( 'x la so le' );
end.

5.

uses crt;
var n:intger;
begin
clrscr;
writeln('nhap vao so nguyen duong:');
readln(n);
if n >= 0 then
writeln('so ',n,' la so duong')
else
writeln('so ',n,' la so am');
if (n mod 2 = 0) then
writeln('so ',n,' la so chan')
else
writeln('so ',n,' la so le.');
readln;
end.

(Công sức đấy! Chúc bạn học tốt!)

Câu 11:

uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then
begin
kt:=0;
if (a=b) or (b=c) or (a=c) then kt:=1;
if kt=0 then writeln('Day khong la tam giac can')
else writeln('Day la tam giac can');
end;
readln;
end.

Câu 12:

uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then
begin
kt:=0;
if (a=b) and (b=c) then kt:=1;
if kt=0 then writeln('Day khong la tam giac can')
else writeln('Day la tam giac can');
end;
readln;
end.

Câu 13:

uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then writeln('Chu vi cua tam giac la: ',a+b+c:4:2)
else writeln('Day khong la ba canh cua mot tam giac');
readln;
end.

Câu 14:

uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) 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 kt=0 then writeln('Day khong la ba canh cua mot tam giac vuong')
else writeln('Day la ba canh trong mot tam giac vuong');
end;
readln;
end.

Câu 15:

uses crt;

var a,b,c,d,ln:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

write('Nhap d='); readln(d);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

writeln('So lon nhat la: ',ln:4:2);

readln;

end.

Câu 16:

uses crt;

var i:integer;

a,max:real;

begin

clrscr;

write('Nhap so thu nhat='); readln(a);

max:=a;

for i:=2 to 4 do

begin

write('Nhap so thu ',i,'='); readln(a);

if max<a then max:=a;

end;

writeln('So lon nhat trong 4 so la: ',max);

readln;

end.

Câu 17:

uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<>0 then writeln('Phuong trinh co nghiem la: ',-b/a:4:2);
if (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
if (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
readln;
end.

uses crt;

var i,n:integer; S:real;

Begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do S:=S+1/(i*(i+2));

writeln('Tong la: ',S:3:1);

readln

End.

???????luôn

số nguyên tố ko có số nào là số chẳn cả

Số 2 là vừa là số nguyên tố, vừa là số chẵn nhé .