Подсчитайте количество элементов одномерного массива,которые со своим номером и при этом кратны 7
ывцым
1
22.05.2019 01:50
1
Другие вопросы по теме Информатика
sentyakovv
18.03.2020 04:13
viloxy
18.03.2020 04:15
НикитаПахомов1
18.03.2020 04:16
gubankowauly19
18.03.2020 04:27
ismaildior200920
18.03.2020 04:32
evaeva2006
18.03.2020 04:45
nastushkaplushka
18.03.2020 04:51
kseniyarigil
18.03.2020 04:54
dinamur03
18.03.2020 04:56
Sawa1605
18.03.2020 05:01
Популярные вопросы
- Вопрос на логику: назовите все моря по порядку которые омывают россия от...
3 - Арабами были завоеваны множество земель, к числу которых относились сирия,...
2 - Скласти речення зі словами пшениця, велосепед, горизонт, кипіти, дециметри,...
2 - 2-3предложения со сложными словами из художественной . ,люди добрые……...
1 - Як записати дріб у розгорнутому вигляді 0,(6),0,(19),4,32(7)...
3 - Известно, что эластичность спроса по доходу на данный товар равна 6. доход...
1 - Отгадать загадки: 1. стоит мальчонка рыжая шапчонка. 2. лежит бычок пестрый...
2 - Координата тела изменяется с течением времени согласно формуле х=20-5t+6t^2....
3 - Составить цитату в виде прямой речи (с автором)...
3 - При каких натуральных значений x верно неравенство х/8 7/20...
2
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.