С клавиатуры вводится трехзначное число, если в нем все цифры одинаковые и оно не четное, то сложить первую и последнюю цифру числа, иначе вывести число без изменения.

владислав257765 владислав257765    1   13.04.2021 18:41    0

Ответы
алёнааепар алёнааепар  13.05.2021 18:45

var a,x,c,b:integer;

begin

 writeln('Введите трехзначное число');

 readln(a);

 x:=a div 100;

 c:=a div 10 mod 10;

 b:=a mod 10;

 if (x=c) and (a mod 2<>0) and (c=b) then writeln(x+b) else writeln(a);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика