Паскаль Для введенного трехзначного числа проверить, делится ли оно на 3 (если введено не трехзначное число – ввод повторить).

// 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.

PascalABC.NETbeginvar n: integer;repeat until TryRead(n,'Введите трехзначное число:') and (n in 100..999);Print('Число', n, n mod 3 = 0 ? 'делится' : 'не делится', 'на 3')end.

Пример работы: