• 
  • 23 December 2012
  Английский язык
  • Автор: Phantomass

  

  Написать программу в Паскале решения ребуса Аист*4=стая. Помогите пожалуйста)!

• 
  • 23 December 2012
  • Ответ оставил: Yegor55

  O__o

   

  var
  i, s : Integer;
  begin

  for i := 1000 to 9999 do
  if (i * 4 >= 1000) and (i * 4 <= 9999) then
  begin
  s := i * 4;
  if ((i mod 100) div 10 = ( s div 1000)) then
  if ((i mod 10) = ( s mod 1000) div 100) then
  if ( i div 1000 = (s mod 100) div 10) then
  if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
  if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
  Writeln(i, ' = ', i * 4);
  end;

  Readln;
  end.

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

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

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

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

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