Регистрация
lalka133722
02.05.2023 07:06
Информатика
Есть ответ 👍

Даны натуральные числа n, a1, a2, … ,an. определить количество ak последовательности a1,a2,…,an являющихся нечётными числами(сделать в паскаль авс)

201
320
Посмотреть ответы 2

Ответы на вопрос:

asdfghjkl107
asdfghjkl107
4,5(42 оценок)

ответ:

program p1;

var n,i,a,ak: integer;

begin

ak: =0;

write ('n = ');

readln (n);

for i: =1 to n do

begin

write ('a',i,' = ');

readln (a);

if a mod 2 < > 0 then ak: =ak+1

end;

write('ak = ',ak)

end.

daniilraubuhin
daniilraubuhin
4,5(46 оценок)

3-4 см

60-50мин

кушат

кушат, трогат монитор,не пачкать, вытерат Руки потом сес на работу

Популярно: Информатика