hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình vuông

Question

thuminh · Answer

var i,S:integer;   Begin   S:=0;   Write('canh hinh vuong:');Readln(i);   Writeln('Dien tich hinh vuong:',S:=S+i*i)   Readln   End.

quynhnhu · Answer

program dien_tich;

uses crt;

var x,S: integer;

Begin

clrscr;

write(‘Nhap do dai 1 canh cua hinh vuong: ‘); readln(x);

S:=x*x;

write(‘Dien tich hinh vuong = ‘,S);

readln

End.

0 bình luận về “hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình vuông”