Ответы
Ответ дал:
0
var a: real;
begin
readln(a);
a := Ceil(1/(a-1) + 1e-15);
writeln(a, ' -> ',1+1/a);
end.
begin
readln(a);
a := Ceil(1/(a-1) + 1e-15);
writeln(a, ' -> ',1+1/a);
end.
Ответ дал:
0
здесь ошибка выходит исправь те пожалуста
Ответ дал:
0
не, тут ошибка в Ceil похоже. Если (1+1/a) - это целое число то нужно вернуть следующее целое, а Ceil вернет само число. Для дробных чисел все Ok
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад