Tin học 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 19/07/2021 By Valerie 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
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. Trả lời
var i,S:integer; Begin S:=0; Write(‘canh hinh vuong:’);Readln(i); Writeln(‘Dien tich hinh vuong:’,S:=S+i*i) Readln End. Trả lời