Переведите программу в free pascal var a: array [1..100] of integer; size: integer; even: integer; noteven: integer; begin write('set size a : '); read(size); for i: integer : = 1 to size do begin write('set a[', i, ']: '); read(a[i]); end; for i: integer : = 1 to size do begin if (a[i] mod 2 < > 0) then begin noteven += a[i]; end else begin even += a[i]; end; end; write('sum even numbers = ', even); writeln; write('sum noteven numbers = ', noteven); end.

282

347

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

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

Zipchik

Информатика

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

Var a: array [1..100] of integer; size: integer; even: integer; noteven: integer; i: integer; begin write('set size a : '); read(size); for i: = 1 to size do begin write('set a[', i, ']: '); read(a[i]); end; for i: = 1 to size do begin if (a[i] mod 2 < > 0) then begin noteven += a[i]; end else begin even += a[i]; end; end; write('sum even numbers = ', even); writeln; write('sum noteven numbers = ', noteven); end.

DiGribosha

Информатика

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

Если вы имели в виду "подогнать" под free pascal, то так: vara: array [1..100] of integer; size,even,noteven,i: integer; beginwrite('set size a : '); read(size); for i : = 1 to size do beginwrite('set a[', i, ']: '); read(a[i]); end; for i : = 1 to size do beginif (a[i] mod 2 < > 0) then beginnoteven += a[i]; endelse begineven += a[i]; end; end; write('sum even numbers = ', even); writeln; write('sum noteven numbers = ', noteven); end.

slavachekunov

Информатика

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

1) 16 = 2^4 > 4 бита для одного пикселя монитор - одна страница видеопамяти: 640*400*4 =(640)*(1600) =(5*2^7) * (25*2^6) = 125*2^13 (битов)= =125 (кбайтов) изображение: 1250: 125 = 10 (страниц) ответ 10 2) (65*2^13 битов ) : (850*200) = (65*8*1024) : (850*200) = =532 480 : 170 000 =3,13≈ 4 бита 1 пиксель 2^4 =16 цветов ответ 16