Проверьте задачу паскаль и помогите если не правильно
Сама задача: Даны натуральные числа n, A1...An. Определите количество членов Ak последовательности A1....An являющихся четными числами.
Приложения:
antoxapantelee:
можешь написать эту программу в письменном виде?
Да,минуту
program m1;
var a,b,c:integer;
begin
write ('Чисел в последовательности:');
Read(b);
for a:=1 to b do
begin
if a mod 2=0 then c:=c+1 else c:=c
end;
Write ('Четных чисел в последовательности:',c)
end.
var a,b,c:integer;
begin
write ('Чисел в последовательности:');
Read(b);
for a:=1 to b do
begin
if a mod 2=0 then c:=c+1 else c:=c
end;
Write ('Четных чисел в последовательности:',c)
end.
Просто по идее, у меня она не должна работать когда число нечетное,но она работает
Ответы
Ответ дал:
0
Ответ:
программа работает верно
Объяснение:
посмотри коментарии в вопросе
Вас заинтересует
1 год назад
1 год назад
1 год назад
3 года назад
8 лет назад
8 лет назад