Напишите программу в которой пользователю предлагается дополнить до 100 некоторое число a(a- случайное число, меньшее 100) ответ пользователя проверяется и комментируете

Var a,b: integer; begin a: =random(99)+1; write('дополните до 100 число ',a,': '); readln(b); if b=100-a then writeln('верно! ') else writeln('вы ошиблись. 100-',a,'=',100-a); end. пример: дополните до 100 число 75: 20 вы ошиблись. 100-75=25

// pascalabc.net 3.2, сборка 1399 от 08.03.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** дополните до ста! ***');   writeln('вам будут предлагаться числа, которые нужно дополнять до 100');   writeln('для завершения работы введите 0');   var a,q,k,m: integer;   k: =0; m: =0;   repeat       q: =random(1,99);       print(q); read(a);       if a=0 then break;       if a=100-q then begin           m+=1;           writeln('это правильный ответ')           end       else writeln('это неправильный ответ, ',100-q);       k+=1;   until false;   writeln('задано вопросов- ',k,', верных ответов- ',m,' (',100*m/k: 0: 1,'%)') end. пример *** дополните до ста! *** вам будут предлагаться числа, которые нужно дополнять до 100 для завершения работы введите 0 80 20 это правильный ответ 5 95 это правильный ответ 51 49 это правильный ответ 4 95 это неправильный ответ, 96 90 10 это правильный ответ 11 0 задано вопросов- 5, верных ответов- 4 (80.0%)

ответ:

41866

объяснение:

1) 4*10+0*2 =40

2) 4* 40 + 1*2 =162

3) 4* 162 + 2*2= 652

4) 4*652 + 3*2= 2614

5) 4*2614 + 4*2 = 10464

6) 4*10464 + 5 *2= 41866

0 to 5 повторять с 0 до