это информатика очень нужно дедлайн уже а ответа я так и не нашёл на все эти задания

122

331

Посмотреть ответы 1

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

drfast555

Информатика

4,7(66 оценок)

Var x: integer; begin write('введите трехзначное число: '); readln(x); if ( x < 100 ) or ( x > 1000 ) then writeln('ошибка! число не трехзначное.') else if ( x div 100 ) = ( x mod 100 ) then writeln('1') else writeln('0'); end.