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