целый тип - целочисленное число, без запятых и т.д
Спасибо
Ответ дал: Гость
4: 2
2|0
1|0
0|1
4₁₀=100₂
10: 2
5|0
2|1
1|0
0|1
10₁₀=1010₂
1996: 2
998|0
499|0
249|1
124|1
62|0
31|0
15|1
7|1
3|1
1|1
0|1
1996₁₀=11111001100
100.1010.11111001100
Ответ дал: Гость
var a: array[1..50] of integer; i,f, n: integer;
begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.
Популярные вопросы