A. Tìm giá trị nguyên dương nhỏ nhất để tổng S = 1+2+3+… > E với E là số nguyên được nhập vào từ bàn phím
B. Đếm xem số nguyên dương n được nhập vào từ bàn phím có bao nhiêu chữ số
C. Tính tổng các chữ số của số nguyên dương n được nhập vào từ bàn phím
D. Kiểm tra số nguyên dương n được nhập vào từ bàn phím có phải là số đối xứng hay không
E. Tìm tất cả các số đối xứng từ 1 đến n với n là số nguyên dương n được nhập vào từ bàn phím
P/s: Giúp mình với mn ơii
Câu C:
uses crt;
var a:array[1..100] of integer;
n,i,s:integer;
begin
clrscr;
write(‘nhap n:’);
readln(n);
for i:=1 to n do begin write(‘a[‘,i,’]=’);
readln(a[i]);
end;
s:=0;
for i:=1 to n do if a[i]>0 then s:=s+a[i];
write(‘tong cac so duong la:’,s);
readln;
end
Chờ mình một xíu mình làm tiếp nhé ^^
Full 5 câu nhé ^^
A.
Program FNG;
Uses crt;
Var s,e,i: longint;
Begin
Clrscr;
Write(‘Nhap e: ‘); Readln(e);
i:=1;
While s<=e do
Begin
s:=s+i;
inc(i);
End;
Write(S);
Readln
End.
B.
Program FNG;
Uses crt;
Var n,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
While n<>0 do
Begin
n:=n div 10;
inc(d);
End;
Write(d);
Readln
End.
C.
Program FNG;
Uses crt;
Var n,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
While n<>0 do
Begin
d:=d+n mod 10;
n:=n div 10;
End;
Write(d);
Readln
End.
D.
Program FNG;
Uses crt;
Var n,d,k: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0; k:=n;
While n<>0 do
Begin
d:=d*10+n mod 10;
n:=n div 10;
End;
If d=k then Write(‘Doi xung’)
Else Write(‘Khong doi xung’);
Readln
End.
E.
Program FNG;
Uses crt;
Var n,i: longint;
Function DX(a: longint): boolean;
Var s,k: longint;
Begin
k:=a; s:=0;
While a<>0 do
Begin
s:=s*10+a mod 10;
a:=a div 10;
End;
If s=k then exit(true);
exit(false);
End;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
If DX(i) then Write(i,’ ‘);
Readln
End.