Viết chương trình pascal tính tổng 12 áooas

Answers [ ]

1. *Tính tổng:

   program tinhtongnso;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   writeln[‘Nhap so n’];readln[n];

   s:=0;

   for i:=1 to n do s:=s+i;

   writeln[‘Tong la:’,s];

   readln

   end.

   Xin ctlhn ạ!

3. uses crt;
   var s,i,n:longint;
   begin
   clrscr;
      write[‘n=’];readln[n];
      for i:=1 to n do s:=s+i;
      writeln[s];
   readln
   end.

Leave an answer

Gianna

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i