Dùng Pascal Viết chương trình tính bình phương của 1 số và sau đó xuất bình phương từ 1 đến 20. Giúp mik vs! Hứavote 5* nek . Cho 40đ nek

0 bình luận về “Dùng Pascal Viết chương trình tính bình phương của 1 số và sau đó xuất bình phương từ 1 đến 20. Giúp mik vs! Hứavote 5* nek . Cho 40đ nek”

1. uses crt;
   var n,i:longint;
   begin
   clrscr;
      write(‘Nhap 1 so: ‘);readln(n);
      writeln(‘Binh phuong cua ‘,n,’= ‘,n*n);
      writeln(‘Binh phuong cac so tu 1 den 20 la:’);
      for i:=1 to 20 do writeln(‘Binh phuong cua so ‘,i, ‘: ‘,i*i);
   readln
   end.

   Bình luận

2. uses crt;
   var i : integer;
   function bp(x : integer) : integer;
   begin bp:=x*x; end;
   begin
   write(‘Binh phuong cac so tu 1 den 20 la :’);
   for i:=1 to 20 do writeln(bp(i):3);
   readln
   end.

   Bình luận