Даны длины десяти сторон квадратов. Вычислите их площади и периметры. В паскале!! Пожалуйста помогите , это очень важно!!!!!СРОЧНО

1

Ответы и объяснения

2012-12-19T15:22:52+04:00

Program Pr1;
uses crt;
var i,s,p:integer;
mas:array[1..10] of integer;
begin
clrscr;
for i:=1 to 10 do begin
writeln('Введите ',i,'-ую сторону квадрата');
readln(mas[i]);
end;
for i:=1 to 10 do begin
s:=sqr(mas[i]);
p:=4*mas[i];
writeln('Площадь ',i,'-ого квадрата=',s);
writeln('Периметр ',i,'-ого квадрата=',p);
end;
end.