Расшифровка кода.
u2fsdgvkx19ds1y9qik1ozbiqlr6nmqabheeusgcmi5f4odd618mqtijbxcd2zs1
kaiqbjmkt1mm02mgvtbfauj82ikg5v5/tlkez2b0l9rez38aijgztpqg7ddqrbos
5z9n21agexy4cmtisghj5c5bwa5rertzqmp0yrjxw7ejusrlgwdgyrbx9hbopfa4
dn4cr8ibckuc6unotm8dyxtecb4xufmqedwrkkkimjigm8mw3dko1rcz7yrae6cf
3358krsbyvgoh7p6k56voqhulbu2ksb5mszltcygfirye64gxh9nyz0svvtwyikh
u2fsdgvkx18pjby0qyczzmye16lnwnbzfywazn5q0nvmrartf93gqhb3gmpsqdgc
ebp/ibccrka/yo1b+x6wm97nssuvdm4uoxlirya5v/gfp2l2d9z6wira8mxjoriv
asnmehn7og489xrczvjqn9pebf27rfgifa/wn241azoavrjcam2j4psd1kwczb6l
d2dg1d0r/qcb76aureb8q9k3mtrdbc+wznw0tjeuumxo/hs6ufrz3ssz837atfs2
tbtp5dbo04+1hsvp+si/b/mldb+5onknlvyfkn2
4tdljapsawnovobo8+chwvttkxn2s8+5zhmfwwsi8t87gu+9rege4g3nb4fqpqq+
dewzab57ktprsboj2kollgynkx7izucjzuyc9vem2lrcutkpn1aphushuz/rzpsr
pqal/pbtphsvygnaw1o87r2winimrffiwwejt8sry5klzijhsig9ljudflrjxm2z
mwbm43z1e69tzeve/6orirrgbi+cec70oxdxhsk+qgmcictjfmsryuuczrpuclhm
uf91tbimoioscgwx6riwcndzhuyca93jeae8bqjettoelg7iuhgqpbee6pqv9mka
ff5mwgkde9pbltz1qebwqq==
u2fsdgvkx1/eb6/klewmtf5e7pupgmr3xrtwijnpepizzuw2bz9g5idcjty6mn/i
odg1y2nkcp/lexxvh0rywkzsswe51mmt9+sy2zkcqllhjoyhzaa/irmo9bx39wm6
by8txdcpzb0chbzjxpbr6k/1ii2r9urmr93uw4mrjpdirdgk4axxerpphcfpqkuf
nvvjji9j/yqigghpbxdcxd9lth7kkosj5/6ou7twmjxbg6osvegtkaeh+tubocaw
dqy0k68sammappdhxgu/h8rhobdb229zgkkkok/ociss8ftlekvfzg+tuol4hecd
mlnp+hrdo2eb+bviumm5lkvnzrmpodggcqk5vlrgbcecufoj5aan/a+bc5fdnk9d
4bi3xkd4/wm7ouo6zy7ylqqbfdlwgfa2xwuka0ovqq59e3/ni+q4lpyyog8gshik
mivxwzowxxvbg/qitthowz23gnnl4jsytg/bnax/rzmsga8quy4czgvfehutnvsm
wy7jxvw4khlcuko9gh8eku8bsruvn1wcl7svx8hd3ppqpotqrjue1q2dkfaedtz1
hsn7q2wwk38/3ointitb3fphlmw0g5qastnq2l1wkllet60/eccblgpdsv7v5dyf
5wawdzxpivlcmttryfetxqb9pvuw1/lchury6i9j4z8=

Показать ответ

Ответ:

alins3

03.05.2023 18:30

ответ:1

var

Chislo, Count, Summa, n: integer;

begin

Summa := 0;

Count := 0;

readln(Chislo);

while Chislo > 0 do

begin

n := Chislo mod 10;

if odd(n) then

begin

Summa := Summa + n;

inc(Count);

end;

Chislo := Chislo div 10;

end;

writeln('Сумма нечетных цифр числа: ', Summa);

writeln('Кол-во нечетных цифр числа: ', Count);

writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);

end.

Объяснение:

0,0(0 оценок)

Ответ:

Adilkin

31.01.2021 19:10

uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.

0,0(0 оценок)

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