Question

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

Answer 1

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

Answer 2

PascalABC.NET

Ответ:

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

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