Program z1;
var stroka:string;
var i:integer;
begin
writeln('Введите строку');
readln(stroka);
for i:=1 to length(stroka) do
begin
if(stroka[i]='1') then
stroka[i]:='0'
else if(stroka[i]='0') then
stroka[i]:='1';
end;
writeln(stroka);
<span>end.</span>
255+255+255 для RGB представления цвета в битовой карте
Ответ: сообщение состоит из 20 символов, то есть из 20 байтов, потому что 1 символ - 8 бит,а 8 бит-1 байт.
1)
uses crt;
var a:integer;
begin
for a:=-10 to 10 do
writeln('a=',a,' ',a*a*a:6);
<span>end.
---
2) 10
10</span>