"Кездесу қыркүйек айына тағайындалды" деген хабарламада қанша көлемдегі ақпарат бар?

297

395

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

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

Varya1111111111113

Информатика

4,8(46 оценок)

1әріп,символ=1байт

Кездесу қыркүйек айына тағайындалды=35 байт

35*8=280бит

cake55555

Информатика

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

Var a, n, ch, nch, i: integer; begin write("n: "); readln(n); ch: =1; nch: =0; for i: =1 to n do begin read(x); if x mod 2=0 ch: =ch*x; else nch: =nch+x; end; if ch=1 ch: =0; writeln("произведение чётных: ", ch, "; сумма нечётных: ", nch, "."); end. var i, n, o, p, x: integer; begin write("n: "); readln(n); p: =0; o: =0; for i: =1 to n do begin read(x); if x> 0 inc(p); if x< 0 inc(o); end; write("кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". разница: ", abs(p-o)); end.