Question

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

Answer 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.

Пример работы программы
Задайте свой вопрос: Какая будет погода?
Ясно