Var a,b,c,k:integer; begin read(a); c:=10; b:=0; for k:=1 to 3 do begin b:=b + a mod c; c:=c+10; end; if (b mod 2= 0) then write ('Norm') else write ('Nechetnoe'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
