• 
  • 03 November 2020
  Информатика
  • Автор: ДашаМил13

  

  Написать программу, которая задумывает число в диапазоне от -50 до 50
  и предлагает пользователю угадать число за 10 попыток (номер попытки
  выводится), программа сообщает, больше или меньше загаданное число
  путем вывода сообщения. После чего программа выводит на «Вам удалось!»
  или «Попробуйте еще раз.».
  (на Паскале)

• 
  • 03 November 2020
  • Ответ оставил: Ленгит

  Ответ:

  Program zadumai;

  Var

  a, k, i: integer;

  Begin

  a:= random (101)-50;

  for i := 1 to 10 do

  begin

  write ('Попробуйте угадать задуманное число. Попытка №', i, ': ');

  readln (k);

  if a=k then

  begin

  writeln ('Вам удалось!');

  exit;

  end

  else

  begin

  end;

  if a>k then writeln ('Задуманное число больше. Попробуйте еще раз.')

  else writeln ('Задуманное число меньше. Попробуйте еще раз.');

  end;

  write (a,'-задуманное число. Попробйуйте еще раз!')

  end.

  0
• 
  • 03 November 2020
  • Ответ оставил: nastikots

  Ответ:

  program ugadai;

  var a,b,k:integer;

  begin

  b:=random(101)-50;

  writeln('Попробуйте угадать число от -50 до 50 за 10 попыток');

  writeln;

  k:=1;

  repeat  

  write('Попытка ',k,'. Введи число: ');

  readln(a);

  if a>b then writeln('Загаданное число меньше!')

  else if a<b then writeln('Загаданное число больше!')

  else if a=b then

  begin

  writeln;

  writeln('Вам удалось!');

  k:=13;

  end;

  k:=k+1

  until k>10;

  if k=11 then

  begin

  writeln;

  writeln('Попробуйте еще раз.')

  end

  end.

  Объяснение:

  Загадываем число (random)

  Цикл с пост условием, k - счётчик попыток.

  Условный оператор для корректировки угадывания.

  Если все попытки исчерпаны, вывод предложения попробовать ещё раз.

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

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

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

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

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