Question

сделать такую же программу только с периметром прямоугольника (это среднее арифметическое)

Answer 1

program pryamoygol;

var

   A,B, result:integer;

begin

   readln(A,B);

   result := 2*(A+B);

   writeln('Периметр прямоугольника = ',result);

end.

Answer 2

Короче, это на 1 строку меньше? fpc не знает что такое короткий код)

Answer 3

Ну, почему же..на 2)))

Answer 4

2? Имя программы еще?

Answer 5

Имя программы я вообще никогда не использую. Нет переменной result, вычисления в выводе

Answer 6

Это не 1 строка)