1. Информатика
  2. Подсчитайте количество

Подсчитайте количество элементов одномерного массива,которые со своим номером и при этом кратны 7

dianaTe dianaTe    2   21.05.2019 21:00    0

Ответы
avernius avernius  16.06.2020 19:24

uses crt;
var s,i:integer;
a:array[1..1000] of integer;
begin
s:=0;
for i:=1 to 1000 do
begin

a[i]:=i;
if ((a[i] = i ) and ( a[i] mod 7 = 0)) then
inc(s);

end;

writeln(s);
readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
uhon1k uhon1k  20.11.2021 23:59
Подтверждение подлинности объектов и субъектов информационной системы....
Ega129 Ega129  20.11.2021 23:57
надо сделать до 11_40 5 надо сделать...
урааа28 урааа28  20.11.2021 23:57
Запишите число 347 в развёрнутом и свёрнутом виде...
alial1 alial1  15.04.2020 11:29
Вычислите число прожитых человеком дней (без учёта високосных лет), если в год у 365 дней, а год рождения и текущий год вводятся с клавиатуры...
dasha89011 dasha89011  15.04.2020 11:28
До ть будь ласка з контрольною по інформатиці...
uspenza uspenza  13.06.2019 07:30
Если в слове а взять первые две буквы и к ним приписать букву р и слово в,то получится слово с.а-жёсткий магнитный диск для хранение информации в персональном компьютере; в-половина...
Vens12 Vens12  31.03.2020 21:21
Какое свойство отличает ориентированный граф 1.граф не имеет циклы 2.граф имеет циклы 3.начальная и конечная точки графа совпадают 4. вершины или ребра графа описаны дополнительной...
liyanborisova liyanborisova  31.03.2020 21:20
Есть ли разница в представлении чисел 10 и 10 в памяти компьютера?...
slava452163525 slava452163525  05.12.2019 22:11
Дана последовательность натуральных случайных чисел, начало и конец промежутка задает пользователь с клавиатуры. вывести на консоль те из них, которые при делении на 7 остаток 1, 2...
женя1373 женя1373  05.12.2019 22:06
в компьютере мурзик всего две ячейки: a и b. определи значение в ячейке b после последовательного выполнения следующей программы: a = 3 b = a + 4 a = a * 5 b = a - 2 * b...

Популярные вопросы