• 1.Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 0. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
    2.Что будет на экране после выполнения программы
    Var I, s,k: integer;
    Begin .. s := 0;
    for i := 0 to 10 do
    s := s-i+5; writeln(s);
    End.

Ответы 5

  • 2) должно быть объяснено
    • Автор:

      katiexxgz
    • 5 лет назад
    • 0
  • 1) если ввести 0, для него также будет выдано решение (0), а по условию 0 не должен обрабатываться.
    • Автор:

      fidel
    • 5 лет назад
    • 0
  • Если вводится 0, то какой вообще смысл в этой программе?
    • Автор:

      mylest5hg
    • 5 лет назад
    • 0
  • По условию ноль не первым вводится, а завершает ввод, но при этом обрабатываться он не должен, потому что не входит в последовательность.
    • Автор:

      ginger64
    • 5 лет назад
    • 0
  • 1) (если последовательность не пустая, т.е есть хотя бы 1 число <> 0)var x,k:integer;begink:=0; repeat readln(x);if (x mod 10=0) and (x mod 3=0) then inc(k);until x=0;writeln(k-1);end.2) 0s=0-0+5-1+5-2+5-3+5-4+5-5+5-6+5-7+5-8+5-9+5-10+5=0
    • Автор:

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

Войти через Google

или

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

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

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