Question

В Паскале: Ввести три целых величины А, В и С . Если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1, а если это не так, заменить каждую величину её квадратом.

Answer 1

Var a,b,c,d:integer;begind:=0;a:=0;b:=0;c:=0;beginreadln(a);readln(b);readln(c);d:=a+b+c;if d > 3 thenbeginwriteln('A',a-1) ;writeln('B',b-1);writeln('C',c-1);end;elsea:=a*a;b:=b*b;c:=c*c;end;writeln('A',a) ;writeln('B',b);writeln('C',c);end. / в коде ошибка (

Answer 2

Задача на Паскале: Обработка трех целых величин

Для решения данной задачи в Паскале нужно ввести три целых величины А, В и С. Затем необходимо выполнить определенные действия в зависимости от условия:

1. Если абсолютное значение суммы введенных величин больше 3, то каждую величину нужно уменьшить на 1. 2. Если абсолютное значение суммы меньше или равно 3, то каждую величину нужно заменить её квадратом.

Далее я предоставлю пример кода на Паскале, реализующий данную логику.