uses crt;
var n:longint;
st:string;
i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
for i:=length(st) downto 1 do
write(st[i]);
readln;
end.
Var n,t:longint;
Begin
Write('Nhap so can in ');readln(n);
Write('So viet nguoc lai la: ');
If n < 10 then write(n)
Else
While n > 10 do
Begin
t:=n mod 10;
Write(t);
n:=n div 10;
End;
Write(n);
Readln;
End.
Viết chương trình nhập 2 số thực a,b.In ra kết quả so sánh a,b màn hình theo yêu cầu: Xác định Input, Output
Em hãy xác định input , output mô tả thuật toán và viết chương trình cho các bài toán sau : Bài1: nhập vào một số nguyên xem có chia hết cho 5 hay Bài 2: nhập vào số tự nhiên gồm 4 chữ số in các chữ số ra màn hình
Câu 1: Viết chương trình nhập vào từ bàn phím số tự nhiên n và in ra màn hình số đã nhập chẵn hay lẻ( vd 3 là số lẻ, 4 là số chẵn)
Câu 1: Viết chương trình tính và in ra màn hình diện tích và chu vi của hình chữ nhật, với chiều dài và chiều rộng là số nguyên nhập từ bàn phím.
Câu 2: Viết chương trình nhập các số nguyên x và y, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in ra màn hình giá trị của x và y.
Lưu ý: Câu lệnh hoán đổi 2 biến x và y: Z:=x;
X:=y;
Y:=z;
viết chương trình in ra màn hình số lớn trong 2 số x,y được nhập vào từ bàn phím
Viết chương trình nhập vào 1 mảng số nguyên có 15 phần tử. In ra màn hình những số chia hết cho 5 và tổng của chúng ?
Viết chương trình nhập vào 2 số nguyên a, b và xuất ra màn hình yêu cầu sau:
a. Tính tổng, tích 2 số vừa nhập.
b. Thực hiện phép chia lấy phần dư với 2 số vừa nhập.
Giúp mình viết chương trình Pascal theo yêu cầu trên với mn ơi. Thanks mn nhiều<33
Viết chương trình tính các số chẵn và in ra màn hình n nhập từ bàn phím
Viết chương trình nhập vào 1 cạnh của hình vuông. Tính chu vi và diện tích của hình vuông đó. In kết quả của chu vi và diện đã tính ra màn hình.
