задачка: Даны натуральные числа n,A1,A2,...,An. Определить количество членов Ак последовательности А1,...,Аn, кратных 3 и некратных 5. Опять моя програмка не работает.
program pyat;
var
x:array [1..200] of integer;
i,k,n: integer;
beginwrite ('введите n<=200'); readln (n);
for i:=1to n dobeginwrite ('x[' ,i, ']= ');
readln (x[i]);
end;
k:=0;
for i:=1to n doif (x[i] mod3=0) and (x[i] mod5<>0) then//вот так она работает. А у тебя было: if i mod 3 =0 and mod 5<>0
begin
k:=k+1;
end;
writeln (k);
end.
klem4
17.03.2008 19:25
Один вопрос - одна тема, название темы должно быть информативным. Сообщение перенесено.
renesko1
17.03.2008 20:05
Сообщение удалено
Незнайка 013
17.03.2008 20:45
Информатики помогли
klem4
17.03.2008 21:19
извиняюсь, не все перенес, Незнайка 013, на сколько я понял, ты разобрался что это ответ на твой вопрос.
Незнайка 013
17.03.2008 22:10
[quote name='klem4' date='17.03.2008 21:19' post='120528'] извиняюсь, не все перенес, Незнайка 013, на сколько я понял, ты разобрался что это ответ на твой вопрос. [/quot Спасибо за помощь. Если можно, то наверно можно удалить эти решённые темы. Все равно найти здесь аналагичную задачу очень тяжело.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.