Помогите !!написать программу которая для 3х значного числа если оно четное то возводит в квадрат ,а если не четное то находит сумму цифр

Question

Помогите !!написать программу которая для 3х значного числа если оно четное то возводит в квадрат ,а если не четное то находит сумму цифр

Гость

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

Accepted Answer

var A: integer; begin readLn(A); if (A mod 2 = 0) then begin A := sqr(A); WriteLn('Квадрат введённого числа равен: ', A); end else begin A := ((A mod 100) div 10) + (A mod 10) + (A div 100); writeLn('Сумма цифр введённого числа равна: ', A); end; end.