• Нужно написать в паскале программу задаешь вопрос "какая будет погода" и он должен ответить рандомно с вероятностью 30% дождь, 50% ясно и 20% пасмурно

Ответы 1

  • var  n:integer;  s:string;begin  Write('Задайте свой вопрос: ');  Read(s);  if s='Какая будет погода?' then  begin    Randomize;    n:=Random(100)+1;    case n of    1..30:Writeln('Дождь');    31..80:Writeln('Ясно');    else Writeln('Пасмурно')    end;  end  else Writeln('У меня нет ответа')end.Пример работы программыЗадайте свой вопрос: Какая будет погода?Ясно
    • Автор:

      treynb4p
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years