Предмет: Информатика,
автор: Souellsls
Проверьте задачу паскаль и помогите если не правильно
Сама задача: Даны натуральные числа 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
Ответ:
программа работает верно
Объяснение:
посмотри коментарии в вопросе
Похожие вопросы
Предмет: Биология,
автор: roman12333
Предмет: Українська література,
автор: piddubnavika0
Предмет: Математика,
автор: tatjanakaravan
Предмет: История,
автор: KristinaBax
Предмет: Биология,
автор: Dana21628gmailcoo