один из ответов:"Мое чило меньше","Мое число больше","Вы угадали".процесс повторяется до тех пор пока не будет угадано число.
помогите на паскале сделать
var a,answer:integer;begin randomize; a:=random(101); while (a<>answer) do begin readln (answer); if (answer>a) then writeln ('Загаданное число меньше') else writeln ('Загаданное число больше'); end;writeln ('Вы угадали число!');end.
Ответ:
=ЕСЛИ(B1<3000;B1*0,05; ЕСЛИ(B1>10000;B1*0,015; B1*0,02))
180