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

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

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

program Integer18;

var

A, Res: Integer;

begin

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

Readln(A);

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

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

end.

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

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

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

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