Bài 6. Câu lệnh điều kiện

Var T,n,i:integer;

begin

readln(n);

while n mod 2 =0 do begin

write('nhap lai n:'); readln(n);

end;

T:=1;

for i:=1 to n do

if i mod 2 <>0 then T:=T*i;

write(T);

end.

mình làm TH n lẻ thôi, TH n chẵn bạn lm tương tự nha :3

uses crt;

var a,b:longint;

begin

clrscr;

write('nhap so thu nhat:');readln(a);

write('nhap so thu hai:');readln(b);

if (a mod 2=0) and (b mod 2=0) then

write('ca hai so deu chan')

else if (a mod 2<>0) and (b mod 2<>0) then

write('ca hai so deu le')

else write('ban vua nhap mot so chan va mot so le');

readln;

end.

chúc bạn học tốt

Bạn nào bk giúp mình nha :D Có làm rồi nhưng sợ sai

a
n mod 12

b ,c

while n <>0 do
begin

dem:=dem +1;
tong := tong + n mod 10;
n :=n div 10;
end;

uses crt;

var n, a, dem, tong:longint;

begin

clrscr;

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

if n mod 12= 0 then

writeln(n,' chia het cho 12')

else write(n,' khong chia het cho 12');

a:=n;

tong:=0; dem:=0;

while a<>0 do

begin

dem:=dem+1;

tong:=tong+ a mod 10;

a:=a div 10;

end;

writeln(n,' co ',dem,' chu so');

write('tong cac chu so bang:',tong);

readln;

end.

* ở đây mk gán a = n để khi đếm số chữ số ,tính tổng các các chữ số của a cũng là đếm số chữ số ,tính tổng các chữ số của n, để n vẫn giữ nguyên giá trị ban đầu. Bạn cũng có thể dùng chương trình con để giải nhé

Câu này quá dễ luôn bạn chỉ cần suy nghĩ và động não là ra ấy mà

program tinh;

uses crt;

var a,b,tong,hieu,tich:integer;

thuong:real;

begin

clrscr;

write('nhap so nguyen duong a:');readln(a);

write('nhap so nguyen duong b:');readln(b);

tong:=a+b;

if a>=b then hieu:=a-b else hieu:=b-a;

tich:=a*b;

if a>=b then thuong:=a/b else thuong:=b/a;

writeln('tong la:',tong);

writeln('hieu la:',hieu);

writeln('tich la:',tich);

writeln('thuong la:',thuong:0:2);

readln;

end.

chúc bạn học tốt!!

uses crt;

var a,b:longint;

tong,hieu,tich,thuong:int64;

begin

clrscr;

readln(a,b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a/b;

writeln(tong,' ',hieu,' ',tich,' ',thuong);

readln

end.

Ngắn gọn nè bạn. Thi tốt!

Program Kiem_tra;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap canh a =');

readln(a);

write('nhap canh b =');

readln(b);

write('nhap canh c =');

readln(c);

if (a+b < c) or (a+c <b) or (c+b <a) then

writeln('khong phai ba canh cua tam giac ');

else

if ( a = b) and (b=c) then

writeln('la tam giac deu ')

else

if ( a= b ) or (b=c) or (a=c) then

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then

writeln('la tam giac vuong can')

else writeln('la tam giac can')

else

if ( a*a =b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then

writeln('la tam giac vuong')

else writeln('la tam giac thuong);

readln;

end.

program ba_canh_tam_giac;

uses crt;

var a,b,c: longint;

begin

clrscr;

writeln('nhap 3 do dai: '); readln(a,b,c);

if (a<(b+c)) then writeln('khong la do dai 3 canh cua tam giac') else

if (a=b) and (b=c) and (c=a) then writeln('do la tam giac deu') else

if (a=b) or (b=c) or (c=a) then writeln('la tam giac can') else

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('la tam gia vuong');

readln

end.

Bạn tham khảo nhé!!!

1.

program bai1;

uses crt;

var t1,t2,max: integer;

begin

clrscr;

write('nhap so thu nhat ='); readln(t1);

write('nhap so thu hai ='); readln(t2);

max:=t1;

if max > t2 then write('so lon nhat la so thu nhat ') else

write('so lon nhat la so thu 2 hai ');

readln;

end.

2.

program bai2 ;

uses cer;

var a,b,c,d,max: integer;

begin

clrscr;

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

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

write('nhap so thu tu ='); readln(d):

max:=a;

if max > b then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',b,'');

if max > c then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',c,' ');

if max > d then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',d,'');

readln;

end.

câu 4,5,6.

program tam_giac;

uses crt;

var a,b,c: real;

begin

clrscr;

write(' nhap canh a ='); readln(a);

write('nhap canh b ='); readln(b);

write('nhap canh c ='); readln(c);

if ( a+b < c) or ( a+c < b) or ( b+c < a) then

write('khong phai ba canh cua tam giac ') else

if ( a=b) and (b=c) then writeln('la tam giac deu ') else

if (a=b) or (b=c) or (c=a) then writeln('la tam giac can ') else

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or ( c*c=a*a+b*b) then

writeln('la tam giac vuong') else

writeln('khong phai so do 3 canh cua tam giac deu ',' tam giac can ',' tam giac vuong');

readln;

end.

Program Chan_le;

uses crt;

var a: integer;

begin

clrscr;

write('nhap vao so a ='); readln(a);

if ( a mod 2 = 0 ) then write(' a la so chan ')

else

write('a la so le ');

readln;

end.

uses crt;

var a:integer;

begin

clrscr;

writeln('nhap vao so a');readln(a);

if a mod 2=0 then writeln('a là so chan')

else writeln('a la so le');

readln;end.

Chương trình:
a= int(input(‘Nhap a’))
if (a%2==0):
    print (a,’la chan’)
else:
    print (a,’la le’)

Program Đổi_Tiền;

var

loai5000,loai2000,loai1000,m,n: integer;

write('nhap so tien can doi :'); readln(n);

M:=n;

loai5000:= n div 5000; n:=n-loai5000*5000;

if n<>0 then

begin

loai2000 :=n div 2000; n:=n-loai2000*2000;

if n<>0 then

begin

loai1000:=n div 1000 ; n:=n-loai1000*1000;

end;

writeln(M , 'doi duoc thanh :' ,loai5000,' to 5000,' ,loai2000,' to 2000 ,' ,loai1000,' to 1000 ,');

readln;

end.