• 8 класс, напишите программу на Pascal ABC по этой задаче. Именно программу которую можно скопировать напрямую в сам паскаль, большое спасибо.
    Сама задача:
    "Вводится N целых чисел, определите количество чисел кратных 10"

Ответы 3

  • Спасибо большое!
    • Автор:

      gallagher
    • 5 лет назад
    • 0
  • мы такие программы в начале второй четверти 7-ого класса писали, так что я почти на 100% уверен в правильности
    • Автор:

      jamierlqt
    • 5 лет назад
    • 0
  • Ответ:

    Объяснение

    var n,i,a,b:integer;

    begin

    b := 0;

    write('введите n - '); readln(n);

    for i:= 1 to n do begin

    write('введите a - '); readln(a);

    if a mod 10 = 0 then

    b := b + 1;

    end;

    write('количество чисел кратных 10 - ', b);

    end.

    • Автор:

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

Войти через Google

или

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

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

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