Pascal ABC. Выручайте пожалуйста. 1) Прямоугольный участок имеет размеры А ** В. Сколько...

Question

Pascal ABC. Выручайте пожалуйста.
1) Прямоугольный участок имеет размеры А на В. Сколько нужно столбов для ограждения участка, если их ставят через 2 метра.
2) Двигатель комнатного вентилятора имеет мощность 35 Вт. Какую работу он совершает за 10, 11....15 минут работы? Формула A=N*t.

Answer 1

Var a,b: real;
begin
  writeln('введите a, b');
  readln(a);
  readln(b);
  a := (a + b) * 2; // периметр
  b := Trunc(a / 2);
  if a - 2*b < 2 then b := b - 1;
  writeln(b:0:0);
end.


var i, n: integer;
begin
  n := 35;
  for i := 10 to 15 do 
    writeln('t=', i:2, ' A=', n*i);
end.