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

Integer9. Дано трехзначное число. Используя одну операцию деления нацело, вывести первую цифру данного числа (сотни).
Решение:

program Integer9;
var
  A, Res: Integer;
begin
  Write('Введите трёхзначное число: ');
  Readln(A);
  Res:=(A div 100);
  Writeln('Первая цифра данного числа является: ',Res);
end.

program Integer9;

var

A, Res: Integer;

begin

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

Readln(A);

Res:=(A div 100);

Writeln('Первая цифра данного числа является: ',Res);

end.

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

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

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

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