Информатика: Система условных знаков для представления информации

stasnotrage

28.02.2022 02:27

Информатика

Есть ответ 👍

Система условных знаков для представления информации

229

381

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

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

loikomatveico

Информатика

4,5(50 оценок)

Это система счисления

dariaglaowa1

Информатика

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

Var i,n,x,y,z: integer; s: string; begin readln(s); for i: =1 to length(s) do if (47< ord(s[i])) and (ord(s[i])< 58) then begin n: =strtoint(s[i]); case n of 0..9: begin x: =x+1; if n mod 2=0 then y: =y+1 else z: =z+1 end end end; writeln('число цифр: ',x,'; четных цифр: ',y,'; нечетных цифр: ',z) end.