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.

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

Answer 3

Для создания программы на языке программирования Паскаль, которая будет выполнять данную задачу, вы можете использовать следующий код:

pascalCopy code
program CheckDivisibilityBy3;

var
  num: integer;

begin
  repeat
    write('Введите трехзначное число: ');
    readln(num);
  until (num >= 100) and (num <= 999);

  if num mod 3 = 0 then
    writeln('Число делится на 3.')
  else
    writeln('Число не делится на 3.');
end.

Этот код запрашивает у пользователя трехзначное число (повторяя запрос, если число не соответствует требованиям), затем проверяет, делится ли введенное число на 3, и выводит соответствующее сообщение.