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