Сделать такую же программу только с периметром прямоугольника (это среднее арифметическое)
Что вам мешает убрать 1 переменную, и изменить формулу на (a+b)*2?
2 переменные: SA и C
Переменная SA будет хранить результат, можно её переименовать разве.
Вообще, зачем она, если результат можно вычислять прямо в выводе?Для галочки, разве что
Для учителя
program pryamoygol;
var
A,B, result:integer;
begin
readln(A,B);
result := 2*(A+B);
writeln('Периметр прямоугольника = ',result);
end.
Ее можно было сделать и короче, но тогда структура программы будет немного другая по сравнению с той, которую ты показал.
Короче, это на 1 строку меньше? fpc не знает что такое короткий код)
Ну, почему же..на 2)))
2? Имя программы еще?
Имя программы я вообще никогда не использую. Нет переменной result, вычисления в выводе
Это не 1 строка)