Информатика | 5 - 9 классы
Информатика.
PascalABC.
Даю 40 баллов.
Олимпиада по информатике?
Олимпиада по информатике!
Даю 90 баллов!
СРОЧНО?
СРОЧНО!
ПОМОГИТЕ!
ИНФОРМАТИКА!
ДАЮ 90 БАЛЛОВ!
По информатике даю 15 баллов?
По информатике даю 15 баллов.
Олимпиада по информатике, даю 30 баллов?
Олимпиада по информатике, даю 30 баллов.
Помогите решить задачу по информатике?
Помогите решить задачу по информатике.
Срочнооо.
Даю 20 баллов.
Помогите(даю 25 балловИНФОРМАТИКА 6 КЛАСС?
Помогите(
даю 25 баллов
ИНФОРМАТИКА 6 КЛАСС.
Сделайте кроссворд на тему информатика с вопросами даю 15 баллов?
Сделайте кроссворд на тему информатика с вопросами даю 15 баллов.
Информатика?
Информатика.
Помогите!
Даю 30 баллов.
Помогите решить задание по информатике?
Помогите решить задание по информатике.
Даю 18 баллов!
Помогите сделать информатику пожалуйстаДаю 25 баллов?
Помогите сделать информатику пожалуйста
Даю 25 баллов.
На этой странице вы найдете ответ на вопрос Информатика?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 5 - 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
/ / PascalABC.
NET 3.
2, сборка 1353 от 27.
11. 2016 / / Внимание!
Если программа не работает, обновите версию!
Begin var a : = ArrRandom(15, 1, 100) ; a.
Println ; var k : = 0 ; for var i : = 0 to 14 do if a[i] mod 7 = 0 then begin k + = 1 ; WritelnFormat('A[{0}] = {1}', i + 1, a[i]) end ; if k = 0 then Writeln('Заданных элементов в массиве нет')
end.
Пример
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3] = 28
A[5] = 56.