Регистрация
Dasha57891
06.07.2022 17:34
Информатика
Есть ответ 👍

Люди, а что делать если у меня голубой экран на сайте "znanija" сразу же ._. я хотел найти ответ... но сайт меня вообще не пускает
на компьютере причём тоже полностью голубой экран
я могу только вбить вопрос, и пролистать другие, больше я ничего сделать не могу​

244
291
Посмотреть ответы 1

Ответы на вопрос:

VikaPikcha
VikaPikcha
4,4(61 оценок)

//pascalabc.net версия 3.4.0.1677 от 17.06.18

//если программа не запускается, то обновите версию

begin

    var answer : = 1;

    var sum : = random(100, 500);

   

    repeat

        if sum > 30 then

        begin

            if random(100) mod 2 = 0 then begin

                println('[куплена шоколадка]');

                sum -= 45;

            end

            else begin

                println('[куплен сок]');

                sum -= 56;

            end;

           

            if sum < 40 then begin

                answer : = readinteger('на карте меньше 40! 1-пополнить на 300р; 0-пропустить');

                if answer > 0 then sum += 300;

            end

        end;

       

        if sum < = 30 then

        begin

            answer : = readinteger('карта ! 1-пополнить на 300р; 0-пусть голодает');

            if answer > 0 then sum += 300;

        end;

       

        sleep(200);

    until (answer = 0) and (sum < = 30)

end.

Популярно: Информатика