Задание:
Даны длины десяти сторон квадратов. Вычислите их площади и периметры. В паскале! Пожалуйста помогите, это оченьважно! СРОЧНО
Решение:
Program Pr1; uses crt; var i,s,p: integer; mas: array[1… 10] of integer; beginclrscr; 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.
Знаете другой ответ?