Viết thuật toán và phương trình tính tổng từ 10 đến 19 Giúp em với

0 bình luận về “Viết thuật toán và phương trình tính tổng từ 10 đến 19 Giúp em với”

1. input: các số từ 10→19

   output: tổng của các số từ 10→19

   program so;

   uses crt;

   var S,i:integer;

   begin

   clrscr;

   S: = 0;

   for i:=10 to 19 do S:=S+i;

   writeln( ‘Tong = ’, S);

   readln;

   end.

   Bình luận

2. Thuật toán:

   B1: s:=0; 

   B2: i:=10;

   B3: s←s+i;  i←i+1;

   B4: Nếu i<=19 thì quay lại B3

   B5: In s ra màn hình và kết thúc

   Chương trình

   program tinhtong;

   var i,s:byte;

   begin

   clrscr;

   s:=0;

   for i:=10 to 19 do

    s:=s+i;

   write(‘Tong la: ‘,s);

   readln

   end.

   Bình luận