Блог учителя Информатики

Решение задачи Begin3


Условие задачи:

Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b).


uses
  PT4;

var
  a, b, s, p: real;

begin
  Task('Begin3');
  read(a, b);
  s := a * b;
  p := 2 * (a + b);
  write(s, p);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий