Напишите программу в которой пользователю предлагается дополнить до 100 некоторое число a(a- случайное число, меньшее 100) ответ
Напишите программу в которой пользователю предлагается дополнить до 100 некоторое число a(a- случайное число, меньшее 100) ответ пользователя проверяется и комментируете
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u> *** Дополните до ста! *** Вам будут предлагаться числа, которые нужно дополнять до 100 Для завершения работы введите 0 80 20 Это правильный ответ 5 95 Это правильный ответ 51 49 Это правильный ответ 4 95 Это неправильный ответ, 96 90 10 Это правильный ответ 11 0 Задано вопросов- 5, верных ответов- 4 (80.0%)
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
Выглядит просто :) И так... Допустим переменная 'a' = 15, заходим в цикл. Отнимаем от переменной 2. Если переменная 'a' больше 1, то повторяем цикл. И так до того момента пока от переменной не останется 0 или 1. Если переменная равна 0, это значит что переменная четная. А если 1, то переменная нечетная. И так делаем со всеми переменными :)