Три канала по 37 уровней яркости в системе RGB дадут в сумме 3 х 37 = уровней. Каждый байт хранит 256 комбинаций, поэтому одного байта будет вполне достаточно.
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
Var a,b,c:integer;
begin
writeln('Введите номер секунды');
readln(a);
b:=a div 3600;
c:=(a - 3600*b) div 60;
writeln(b,' ч ',c,' мин');
<span>end.</span>
Var
a, b: real;
begin
readln(a, b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln(a, ' ', b );
end.