Pascal: Задача на применение операций целочисленного деления и остатка от целочисленного деления

С клавиатуры вводится число. Необходимо определить сколько в этом числе целых сотен и сколько необходимо, для того, чтобы не было остатка. Например, с клавиатуры вводим 145. Целых сотен: 1, до следующей сотни 55.

Код программы.

Program N1;

var x,z,n: Integer;

begin

writeln(‘введите число x’);

readln(x);

z:=x div 100;

n:=100 — x mod 100;

writeln(‘число целых сотен-‘,z);

writeln(‘необходимо до целой сотни-‘,n);

end.

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

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Анти-спам: выполните заданиеWordPress CAPTCHA