YOMEDIA
NONE

Nhập số tự nhiên n (khai báo longint)

Nhập số tự nhiên n (khai báo longint); in ra màn hình n có bao nhiêu chữ số, tổng các chữ số, số đảo ngược của n

Theo dõi Vi phạm
ATNETWORK

Trả lời (2)

  • Ha Joon

    Program tin_hoc;

    Uses Crt;

    Var n:longint;

    a:string;

    i,code,tong,tam:integer;

    Begin

       Clrscr;

       Writeln('Nhap so tu nhien n:');

       Readln(n);

       str(n,a); tong:=0;

       Writeln('So chu so cua n la: ',length(a));

       For i:=1 to length(a) do

          Begin

             val(a[i],tam,code);

             tong:=tong+tam;

          End;

       Writeln('Tong cac chu so cua n la: ',tong);

       Write('So dao nguoc cua n la: ');

       For i:=1 to length(a) do Write(a[length(a)-i+1]);

       Readln;

    End.

      bởi Ha Joon 09/02/2019
    Like (0) Báo cáo sai phạm
    • YOMEDIA

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • Thánh Bảo

    iáo trình bài tập Pascal Lê Cường For i:=1 to N do S:=S+i; Writeln('Ket qua la :',S); Readln; End. Cách 2: Dùng vòng lặp REPEAT. Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; i:=1; Repeat S:=S+i; i:=i+1; Until i>N; Writeln('Ket qua la :',S); Readln; End. Cách 3: Dùng vòng lặp WHILE. Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; i:=1; While i<=N Do Begin S:=S+i; i:=i+1; End; Writeln('Ket qua la :',S); Readln; End. Bài tập 3.5: Viết chương trình nhập vào N số nguyên từ bàn phím. Hãy tính và in ra màn hình tổng của các số vừa được nhập vào. Ý tưởng: Dùng phương pháp cộng dồn. Cho vòng lặp FOR chạy từ 1 tới N, ứng với lần lặp thứ i, ta nhập vào số nguyên X và đồng thời cộng dồn X vào biến S. Program Tong; Uses crt; 16

      bởi Thánh Bảo 19/03/2019
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 8

 

YOMEDIA
ATNETWORK
ON