Регистрация
алишер126
14.09.2021 23:15
Информатика
Есть ответ 👍

Сколько нужно вопросов чтобы узнать где живёт твой друг

300
500
Посмотреть ответы 2

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

mirnayamilena
mirnayamilena
4,8(79 оценок)
Нужно подсчитать по моему 6
kirapri32
kirapri32
4,6(6 оценок)
//pascal wde var   xk,xn: real;   i,r,xik,xin: integer;   b: boolean; begin b: =false; r: =1; read(xn,xk); xin: =round(xn-frac(xn)); xik: =round(xk-frac(xk)); i: =xin; while i< =xik do begin if i> 0 then   begin   r: =r*i;   b: =true;   end; inc(i); end; if b=true then write(r) else write('0'); end. пример ввода: -2.8 3.8 пример вывода: 6

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