Ну алгоритм это последовательность действий=> решение..
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.
жёлтый лимон синяя луковица лимон и 2 луковицы синей
101000=40
10010=18 в классе 58 человек или 111010
Program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
<span>
</span>