// PascalABCNET 3.6.3
begin
var n: integer;
var p := False;
while not p do
p := TryRead(n, 'Введите трехзначное число:');
p := n in 100..999
end;
if n mod 3 = 0 then
Print('Делится на 3')
else
Print('Не делится на 3')
end.
Пример работы:
// PascalABCNET 3.6.3
begin
var n: integer;
var p := False;
while not p do
begin
p := TryRead(n, 'Введите трехзначное число:');
p := n in 100..999
end;
if n mod 3 = 0 then
Print('Делится на 3')
else
Print('Не делится на 3')
end.
Пример работы: