Дано трехзначное число. Если в сумме его цифр присутствует число 7,то число записать в зеркальном виде ( Паскаль )

[Эля777]

Введено трехзначное число.Если в сумма его цифр присутствует число 7,то число записать в зеркальном виде.


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[BDA]

Где наработки или идеи?
Где вопрос?

uses
  crt;

var
  n, s: integer;

begin
  repeat
    readln(n);
  until (n >= 100) and (n <= 999);
  
  s := n div 100 + (n mod 100) div 10 + n mod 10;
  writeln('Sum: ', s);
  
  if (s div 10 = 7) or (s mod 10 = 7) then
    n := n div 100 + ((n mod 100) div 10) * 10 + (n mod 10) * 100;
  
  writeln(n);
  readln;
end.

[Poma][a]

ошибся (я) 10 букаф

[BDA]

Poma][a, а если введут не число, а слово
Но это не главная проблема. Главная проблема, что значит "Если в сумма его цифр присутствует число 7". Тут возникает главный вопрос - как толковать это?
В общем, ТС сама должна уточнить. Имхо, более логичный вариант (опечатка в одной букве, но смущает слово "число", вместо "цифра") - сложить все цифры и искать семерку в получившимся числе.

[Poma][a]

наверно просто опечатка ""Если в сумме его цифр присутствует число 7"

[sklees]

просто сконвертировал

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  int n = 0, s = 0;
  n = StrToInt( Edit1->Text );
  s = n / 100 + ( n % 100 ) / 10 + n % 10;
  Edit2->Text = "Sum: " + IntToStr( s );
  if ( ( s / 10 == 7 ) || ( s % 10 == 7 ) )
    n = n / 100 + ( ( n % 100 ) / 10 ) * 10 + ( n % 10 ) * 100;
  Edit3->Text = IntToStr( n );
	
}