Pascal.дан целочисленный массив a размера n.переписать в новый массив в того же размера вначале все элементы исходного массива с четными номерами,а затем-с нечетными: а2,а4,а6,…а1,а3,а5 !

184

373

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

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

Simuran999

Информатика

4,7(14 оценок)

Program project1; {$apptype console} uses sysutils, math; var a: real; n: integer; begin write('число: '); readln(a); n: =floor(a*1000); if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or ((n div 100) mod 10 = 0) then writeln(1) else writeln(0); end. число: 4785.201457 1