var a,k :integer; begin repeat begin writeln ('введи число'); read (a); if (a mod 2 <>0) then k:=k+1; end; until a=0; writeln ('количество нечетных чисел k=',k); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
