Question

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

Answer 1

Объяснение:

var

a, b, c, d, per: Integer;

begin

WriteLn('Введите сторону A,B,C,D');

Read(a, b, c, d);

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

WriteLn('Ошибка! Вы ввели 0 или отрицательное число')

else

per := a + b + c + d;

WriteLn(per);

end.