uses crt;
var a,b,s:integer;
begin
clrscr;
write('Nhap so A co 2 chu so: ');readln (a);
if (a>9) and (a<100) then begin
s:=0;
while a<>0 do
begin
b:=a mod 10;
a:=a div 10;
s:=s+b;
end;
write('Tong 2 chu so A la: ',s); end else write('So A nhap vao khong thoa man');
readln;
end.
Đề:Viết chương trình nhập vào 2 số nguyên A, B từ bàn phím. In ra màn hình số lớn nhất trong 2 số đó.
Ví dụ 1:
Nhap A = 5
Nhap B = 7
So lon nhat la: 7
Ví dụ 2:
Nhap A = 9
Nhap B = 2
So lon nhat la: 9
cách viết chương trình để in ra màn hình tổng các số lẻ trong 3 số a, b, c ( với a, b, c là các số tự nhiên nhập vào từ bàn phím )
viết chương trình tính tổng S=1+2+3+...+n.Trong đó n là số nguyên nhập từ bàn phím
Viết chương trình tính tổng S = 1+2+3+...+1/n. Trong đó n là số nguyên được nhập từ bàn phím
Giả sử cần viết chương trình nhập một số tự nhiên a vàotừ bàn phím và in ra màn hình kết quả số a là số chẵn hay số lẻ. VD: Nhập a=5 thì in ra "a là số lẻ" ngược lại a =10 thì in ra a" là số chẵn". Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
viết chương trình tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Viết chương trình nhập từ bàn phím ba số a, b và c. In ra màn hình ba số đó.
Giúp mình với ạ.
