Просто, если логически подумать, то
<em>Белов -рыжеволосый</em>
<em>Чернов -беловолосый</em>
<em>Рыжов- черноволосый</em> :)
Var
N,S:integer;
Begin
S:=0;
ReadLn(N);
For N:= 1 to N do
if N mod 5 = 0 then S:=S+N;
WriteLn('S = ',S);
End.
Основные области: Компьютерная инженерия, моделирование, разработка игр.
Динамическое отображение