• Помогите срочно решить следующую задачу(оформить с пояснениями).
    Задача:
    определите при каком наименьшем значении b в результате выполнения следующего алгоритма будет напечатано число 100
    var a,b,t,k:integer;
    function F(x:integer):integer;
    begin
    if x mod 2=0 then
    F:=1;
    else
    F:=0;
    end;
    BEGIN
    a:=100;
    readln(b);
    k:=0;
    for t:=a to b do
    begin
    k:=k=F(t);
    end;
    write(k);
    END.

Ответы 2

  • спасибо, все верно
    • Автор:

      drakezfvv
    • 6 лет назад
    • 0
  • Наверное не k:=k=F(t); а k:=k+F(t);тогда ответ: 298---------------------------Процедура F(x) дает 1, если х четное или 0, если х нечетное.Далее программа подсчитывает сумму F(x)  (т.е. проще говоря количество четных чисел) от 100 до b.Т.к. 100 само является четным числом, остается еще 99 четных чисел. Т.к. четные числа идут через один, то потребуется в два раза больше чисел:99*2=198100+198=298т.е. 298 является тем числом, по достижении которого сумма F(x) станет равна 100.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years