• 
  • 30 December 2020
  Информатика
  • Автор: skifoschka07

  

  Дано натуральное число. Напишите программу, которая проверяет, является ли оно
  трехзначным и кратно ли 7 сумма его цифр.

• 
  • 30 December 2020
  • Ответ оставил: fedortarasenko

  На Паскале это будет выглядеть следующим образом:

  program num;

  var a,b,i,sum: integer;

  begin

  sum:=0;

  a:=0;

  b:=0;

  i:=0;

  writeln('Enter your number ');

  readln(a);

  if ((a>99)  and (a<1000)) then begin

  writeln('It has 3 digits');

  for i:=0 to 3 do begin *!!!если будет ошибка, то смени 3 на 2!!!*

  b:=a mod 10;

  a:=a div 10;

  sum:=sum+b;

  end *!!!тут спорный момент. Если будет ошибка, то спроси у учителя как правильно поставить точку с запятой =)!!!*else

  writeln('You wrote a wrong number, try again!');

  end; *!!!и еще раз - если будет ошибка компиляции, то спроси у учителя как правильно расставить точки с запятыми(;)!!!*

  end.

  
  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (19.08.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы