Задание:
1. Дана сторона квадрата a. Найти его периметр P и площадь S. Справка: P=4∙a, S=a2.
Решение:
Var p,a: integer; beginwriteln ('Введи сторону'); readln (a); p: =4*a; writeln (p); end.-var s,a: integer; beginwriteln ('Введи сторону'); readln (a); s: =a*2; writeln (s); end.
Знаете другой ответ?