Решаем задачи Абрамян на Паскале. Integer 17

Integer17. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду сотен в записи этого числа.
Решение:

program Integer17;
var
  A, Res: Integer;
begin
  Write('Введите число: ');
  Readln(A);
  Res:=((A mod 1000) div 100 );
  Writeln('Цифра, соответствующая разряду сотен в записи этого числа: ',Res);
end.

program Integer17;

var

A, Res: Integer;

begin

Write('Введите число: ');

Readln(A);

Res:=((A mod 1000) div 100 );

Writeln('Цифра, соответствующая разряду сотен в записи этого числа: ',Res);

end.

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 17

Комментарии:

Добавить комментарий Отменить ответ