Viết chương trình tính tổng 20 chữ số đầu tiên

Question

ngochuong · Answer

M&igrave;nh kh&ocirc;ng c&oacute; phần mềm Pascal đề thử n&ecirc;n m&igrave;nh viết thuật to&aacute;n th&ocirc;i , bạn dựa v&agrave;o để viết chương tr&igrave;nh nh&eacute;. M&igrave;nh viết dạng tổng qu&aacute;t cho N số tự nhi&ecirc;n đầu ti&ecirc;n.   Bước 1. Nhập N v&agrave; d&atilde;y số           a      1      ,    .    .    .    ,      a      N       a1,...,aN      Bước 2.         i    &larr;    0     i&larr;0      ,         P    &larr;    1     P&larr;1      Bước 3.         i    &larr;    i    +    1     i&larr;i+1      Bước 4. 4.1 Nếu         i    >    N     i>N      th&igrave; kết th&uacute;c thuật to&aacute;n v&agrave; đưa ra kết quả   4.2         P    &larr;    P    &sdot;    i     P&larr;P&sdot;i      rồi quay lại bước 3

ngocquynh · Answer

program tong_20;

uses crt;

var i,tong:byte;

begin

clrscr;

tong:=0;

for i:=1 to 20 do tong:=tong+i;

write(‘Tong 20 so tu nhien dau tien la: ‘,tong);

readln;

end.

Bình luận

Viết chương trình tính tổng 20 chữ số đầu tiên

0 bình luận về “Viết chương trình tính tổng 20 chữ số đầu tiên”

Viết một bình luận Hủy