1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cnt; var x,n,k:integer; begin n:=1; {nomer elementa posledovatelnosti} k:=0; {kolichestvo chetnyh elementov s nomerami,kratnym 5} writeln('введите число'); repeat begin readln(x); if (x mod 2=0)and(n mod 5=0)then inc(k); n:=n+1; end; until x=0; writeln('k=',k); readln; end. За это 5 получил!
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
