Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Var A : Integer;
Begin
A:=123;
Writeln(A div 100+A div 10 mod 10+A mod 10);
end.
Просто зайди на сайт, специально ведь нк обрезаю название этого сайта...
Цветовой модели RGB соответствует схема с источниками света. Все три интенсивности света нулевые, следовательно - полная темнота! Цвет будет черным.