Bài 1.. Viết chương trình: – Nhập vào số nguyên N. – Xuất ra màn hình tổng các số từ 1 đến N. – Xuất ra màn hình tích các số từ 1 đến N. Làm đúng vs ạ

0 bình luận về “Bài 1.. Viết chương trình: – Nhập vào số nguyên N. – Xuất ra màn hình tổng các số từ 1 đến N. – Xuất ra màn hình tích các số từ 1 đến N. Làm đúng vs ạ”

1. uses crt;

   var

   i,N: integer;

   S: real;

   T: longint;

   begin

   S:=1;

   write(‘nhap N:=’); readln(N);

   for i:=1 to N do

   begin

   T:=T+i;

   S:= S*i;

   end;

   writeln(‘tong cac so tu 1 den ‘,N,’ la ‘,T);

   writeln(‘tich cac so tu 1 den ‘,N,’ la ‘,S);

   readln

   End.

   Bình luận

2. Program Hotboy;

   Uses crt;

   var n,i,S:integer

   T:longint;

   Begin

   Clrscr;

   S:=0;T:=1;

   Write(‘Nhap so n tu ban phim :’);

   Readln(n);

    For i:=1 to n do

   S:=S+i;

   For i:=1 to n do

   T:=T*i;

   Write(‘tong la’,S);

   Write(‘tich la’,T);

      

   Readln

   End.

   Bình luận