câu 1 và câu 2 mik chưa nghĩ ra mik lm câu 3 trước

begin

writeln('Tong cua 2 so 7 va 8 la:',7+8);

readln;

end.

begin

writeln(' Ket qua cua bt: ',((4+5)*(4+5)+12/(3+1)):0:0);

readln;

end.

var S : real ;

begin

S:=(4+5)*(4+5)+12/(3+1) ;

write('Tong la ',S);

readln

end.

input : a

output : a chia hết cho 3 ; a không chia hết cho 3

Thuật toán

B1 : a chia hết cho 3 ← a mod 3 =0

ngược lại a không chia hết cho 3 ← a mod 3 \(\ne\)0

B2 : Kết thúc thuật toán

program nhap_thang_trong_nam ;

var a : integer ;

begin

write('nhap thang '); readln(a);

write('thang trong nam la',a);

readln

end.

program bai1;

var a:longint;

b:boolean;

begin

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

b:=false;

writeln(a,':');

if a<0 then writeln(' -La so nguyen am ')

else write('La so nguyen duong');

if a mod 3=0 then writeln('Chia het cho 3')

else writeln('Khong chia het cho 3');

if a>7 then writeln('Lon hon 7')

else write('Nho hon 7');

readln

end.

- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.
- Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.

Var Long, Trang: real;

Begin

Write(‘nhap chieu cao Long =’); readln(Long);

Write(‘nhap chieu cao Trang =’); readln(Trang);

If Long>Trang then writeln(‘Long cao hon Trang’)

else If Long=Trang then write('Long cao bang Trang)

else write('Long thap hon Trang');

readln

end.

15 div 3- 29 mod 3+ 3 div 2 - 3 mod 2=3

15 div 3 - 29 mod 3 + 3 div 2 - 3 mod 2

= (15 div 3) - (29 mod 3) + (3 div 2) - (3 mod 2)

= 5 - 2 + 1 - 1

= 3

var a:longint;

begin

if a>9 then wrie(a,'>9')

else if a=9 write(a,'=9 ')

else write(a,'<9');

readln

end.

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