Дано трехзначное число если оно является перевёртышем найти сумму цифр этого числа, а если нет то произведение цифр этого числа

Question

Информатика

Таюта

19 мая, 15:42

Дано трехзначное число если оно является перевёртышем найти сумму цифр этого числа, а если нет то произведение цифр этого числа

+4

Ответы (1)

Знаете ответ на вопрос?

Доминика · Answer 1

var

st: string;

i, tmp, res, err:integer;

begin

readln (st) ;

if (st[1] = st[3]) then

for i:=1 to 3 do

begin val (st[i], tmp, err) ; res:=res+tmp; end

else begin res:=1; for i:=1 to 3 do

begin val (st[i], tmp, err) ; res:=res*tmp;

end;

end;

writeln (res) ;

end.