const N = 10;
var
a: array[1..N] of integer;
i: integer;
begin
write('До замены: ');
for i := 1 to N do begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln;write('После замены: ');
for i := 1 to N do begin
if(a[i] mod 2 = 0)then a[i] := a[i] * (-1);
write(a[i], ' ');
end;
end.
Это любой материальный объект или среда ,используемый для хранения или передачи информации: карта памяти, компакт-диски..и т . д
var
n:real;
begin
readln (n);
n:=n*sqrt (2);
writeln (n);
end.
Три канала по 37 уровней яркости в системе RGB дадут в сумме 3 х 37 = уровней. Каждый байт хранит 256 комбинаций, поэтому одного байта будет вполне достаточно.
#include <iostream>
using namespace std;
int main()
{
int n, a, c;
cout << "Количество чисел: ";
cin >> n;
c = 0;
for (int i = 0; i < n; i++) {
cout << endl << ">>> ";
cin >> a;
if (a % 9 == 0) c++;
}
cout << endl << "Ответ: " << c << endl;
return 0;
}