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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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. / в коде ошибка (