Câu 1 :

* Mô tả thuật toán :

- Bước 1 : nhập ba số x, y, z

- Bước 2 : tb ← (x + y + z) / 3

- Bước 3 : xuất giá trị tb

- Bước 4 : kết thúc

* Viết chương trình :

uses crt;

var x, y, z : integer; tb : real;

begin

clrscr;

write('nhap ba so tu nhien x, y, z :');readln(x, y, z);

tb := (x + y + z) / 3;

writeln('gia tri trung binh ba so :', tb:3:1);

readln

end.

Câu 2 :

uses crt;

var a : integer;

begin

clrscr;

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

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

else writeln(a,' la so le');

readln

end.

Bài 1:

Thuật toán:

bước 1:nhập x,y,z

bước 2:kq <-- x + y + z : 3 

bước 3:xuất kết quả ra màn hình rồi kết thúc thuật toán

Bài 2:

print("----------------------------------------------")

x = int(input('nhập số x :'))

if (n % 2 == 0) : 
     print(x,' là số chẵn')
else :
     print(x,'x là số lẻ')

print("----------------------------------------------")