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

  

  где тут ошибка
  
  
  program algorithm;
  var ivan,gor,otvet1 :integer;
  begin
  WriteLn('2*2=?');
  ReadLn(otvet1);
  if otvet1=6 then
  begin
  gor := random(6);
  ivan := random(6);
  if ivan > gor then
  begin
  ReadLn (стоит белое летом в огороде морозит);
  ReadLn(х);
  if х= 'замок' then
  begin
  WriteLn('ПОБЕДА');
  end
  else
  begin
  WriteLn('СМЭРТЬ');
  end;
  end
  else
  begin
  WriteLn('СМЭРТЬ');
  end;
  end
  else
  begin
  WriteLn('СМЭРТЬ');
  end;
  end.

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

  Хорошая программа и условие задачи отличное)

  Объяви x с типом данных string ( x: string; ) и измени в строке "ReadLn (стоит белое летом в огороде морозит)" на "WriteLn('стоит белое летом в огороде морозит')"

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

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

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

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

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