Em hãy viết chương trình nhập vào một số n (0 < n ≤ 10). Cho máy tính thực hiện phép tính có ba số n để kết quả là số 6. In phép tính cần thực hiện ra màn hình (Có sử dụng √ và !) Ví dụ: - Nhập số 1 - Máy tính sẽ thực hiện (1+1+1)!=6 - In phép tính là (1+1+1)!=6
Uses crt;
var a:array[1..10]of string;
n,i:byte;
begin clrscr;
Write(‘Nhap N: ‘);readln(n);
a[1]:='(1 + 1 + 1)!’;
a[2]:=’2 + 2 + 2′;
a[3]:=’3 x 3 – 3′;
a[4]:=’V(4) + V(4) + V(4)’;
a[5]:=’5 + 5 / 5′; { V la Dau can (û)}
a[6]:=’6 + 6 – 6′;
a[7]:=’7 – 7 / 7′;
a[8]:=’8 – V(V(8 + 8))’;
a[9]:=’V(9) x V(9) – V(9)’;
a[10]:='(V(10 – (10 / 10)))!’;
Writeln(a[n],’ = 6′);
readln
end.