• Составить программу к задаче: Сколько шансов при бросании трёх игральных костей выбросить x очков (от 3 до 18) и какие это варианты ( при помощи вложенный циклов). ПОМОГИТЕ ПОЖАЛУЙСТА Pascal abc

Ответы 1

  • var pk,vk,tk,x,k:integer;

    begin

    write('x = ');

    readln(x);

    for pk:= 1 to 6 do

    begin

    for vk:=1 to 6 do

    begin

    for tk:=1 to 6 do  

    if pk+vk+tk=x then

    begin

    writeln('pk = ',pk,'   vk = ',vk,'   tk = ',tk,'   ',pk,' + ',vk,' + ',tk,' = ',pk+vk+tk);

    k:=k+1

    end

    end

    end;

    writeln(k,' шансов')

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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