Question

Помогите, пожалуйста, с написанием программы (в pascal abc) по нахождению периметра четырёхугольника с оператором "if". Нужно сделать так, чтобы если ты вводишь отрицательное число или ноль выдавало ошибку. После этого программа должна попросить написать положительное число.

30 б накину

Answer 1

Ответ:

var a,b,c,d, i:real;

begin

   while true do

       begin

           readln(a,b,c,d);

           

           if (a <= 0) or (b <= 0) or (c <= 0) or (d <= 0) then

           begin

               writeln('Пожалуйста, введите положительное число');

               continue;

           end

           

           else

               break;

           

       end;

           

   writeln(a+b+c+d);

end.

Объяснение: