Viết chương trình pascal tính tổng 4 chữ số lớp 10

0 bình luận về “Viết chương trình pascal tính tổng 4 chữ số lớp 10”

1. program ct;

   uses crt;

   var i,j,m,n,S:real;

   begin clrscr;

      writeln(‘Nhap 4 chu so: ‘); readln(i,j,m,n);

        S:=i+j+m+n;

      write(‘Tong 4 chu so tren la: ‘,S:4:2);

   readln;

   end.

   Học tốt!

   Bình luận

2. Program tinhtong;

   Uses crt;

   Var a,b,c,d,s : real;

   Begin

   Clrscr;

   Write (‘ nhap so a’,a);

   Readln(a);

   Write (‘ nhap so b’,b);

   Readln(b);

   Write (‘ nhap so c’,c);

   Readln(c);

   Write ( ‘ nhap so d’,d);

   S:=0;

   S:= a+b+c+d;

   Write(‘ tong cua 4 so la’,S:2:2);

   Readln

   End.

   Bình luận