(PASCALABC.NET) пж решите безотлагательно надобно
(PASCALABC.NET) пж решите безотлагательно надо
Задать свой вопрос1 ответ
Юрик
function foo(L, K: real): real;
function bar(Len: real): real;
begin
Result := 0;
if Len gt;= L then Result += 1
else Result := 1 + bar(Len + K)
end;
begin
Result := bar(K)
end;
begin
var L := ReadlnReal() * 10;
var K := ReadlnReal();
Print(foo(L, K))
end.
Милючева
Ольга
begin var L := ReadlnReal() * 10; var K := ReadlnReal(); var (Len, Hit) := (0.0, 0); while (Len < L) do begin inc(Hit); Len += K end; Print(Hit)end.
Уферт
Альбина
или так
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов