• Нужно сделать только первые два задания , заранее спасибо :з ИНФОРМАТИКА!!1!11!

    question img

Ответы 5

  • Благодарю ;)
    • Автор:

      arthur51
    • 6 лет назад
    • 0
  • Вопросик можно? Что обозначает эта строчка? const t = 18 * 60 + 30;
    • Автор:

      mora88
    • 6 лет назад
    • 0
  • константа, рубежное время в секундах
    • Автор:

      dianaplsm
    • 6 лет назад
    • 0
  • Еще раз спасибо)
    • Автор:

      bear23
    • 6 лет назад
    • 0
  • 1)const    t = 18 * 60 + 30;var    s: string;    i, n, k, d1, d2: integer;begin    readln(n);    for i := 1 to n do     begin        readln(d1, d2);        if d1 * 60 + d2 < t then k := k + 1    end;    writeln(k);end.2)var    n, k: integer;begin    readln(n);    while n <> 0 do     begin        if (n mod 5 = 0) or (n mod 7 = 0) then k := k + 1;        readln(n);    end;    writeln(k);end.
    • Автор:

      lamar3omp
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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