Даны длины десяти сторон квадратов. Вычислите их площади и периметры

Question

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

Answer 1

71

insourcetrue

16 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: