Написать программу на языке паскаль. даны три действительные числа. сложить те из них, значения которых не отрицательны.

Program chislo; var a,b,c,d: integer; begin write('введите a = ' ); readln(a); if a> =0 then d: =d+a; write('введите b = ' ); readln(b); if b> =0 then d: =d+b; write('введите c = ' ); readln(c); if c> =0 then d: =d+c; writeln(d); write('сумма положительных чисел равна ',d) end.

1)

first_side = int(input())

second_side = int(input())

def perimeter(first_side, second_side):

perimeter = (2 * first_side) + (2 * second_side)

return print(perimeter)

perimeter(first_side, second_side)

2) не понятно, что значит "иначе увеличьте". сделал так -

first_side = int(input())

second_side = int(input())

def perimeter(first_side, second_side):

perimeter = (2 * first_side) + (2 * second_side)

if perimeter > 50:

perimeter = perimeter / 2

else:

perimeter = perimeter * 2

return print(perimeter)

perimeter(first_side, second_side)

Что это за дикий п***ец? Даже названия классов, функций непонятно какие, про ввод значений вообще молчу.

А ответ программа не выводит потому что нарушена логика вызова функций. А нарушена по нескольким причинам. Первая - полное непонимания того, что автор пишет, непонимания ООП, что куда возвращается и т.д. Вторая - несоответствие возвращаемых значений назначению функции. Почему функция Vvod() возвращает сумму введенных чисел? Это создает путаницу, она должна возвращать сами числа. Стоит почитать книги про написанию кода, например "Совершенный код", что бы понимать базовые правила. Одна функция - одна задача.

Конкретно в данном случае нужно в мейне вызвать только Console.WriteLine(Vivod()), т.е. отображение возвращаемого значения функции Vivod(), т.к. к ней уже будет вызвана Summa(), а в ней и Vvod().

Ну а вообще - надо по полной переделывать, а то проверяющему будет больно(ментально), тем более сумма 5 веденных чисел находится за 4 строчки кода:

int sum = 0;

for (int i = 1; i < 6; i++){

   Console.WriteLine($"Введите {i}-ий эмемент:");

   sum += int.Parse(Console.ReadLine()); }

Console.WriteLine($"Сумма равна {sum}");

P.S. Это лабораторная по массивам? Но ты массивы даже в своем решении не используешь.