Begin1. Дана сторона квадрата $$a$$. Найти его периметр $$P=4*a$$.
Решение:
|
1 2 3 4 5 6 7 8 9 |
program Begin1; var P,a: Real; begin Write('Введите значение стороны квадрата: '); Readln(a); P:=4*a; Writeln('Периметр квадрата равен: ', P); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: