Rgb - red green blue
значение каждого параметра от 0 до 255 так что 512 вовсе не подходит
для якро красного подойдет только 0
ответ 0
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение:
Название программы.
Объявление переменных.
Процедуры и функции
Основная программа, начинаемая begin и заканчивая end.
var a: integer;
begin
write('Введите двузначное число: ');
readln(a);
if (a mod 10 = 6) or (a div 10 = 6) then writeln('В его составе есть цифры кратные 6')
else writeln('В его составе нет цифр кратных 6')
end.
А В С F
0 0 0 0
0 0 1 0
0 1 0 1
0 1 1 0
1 0 0 1
1 0 1 0
1 1 0 1
1 1 1 0