Есть несколько вариантов. 1)А=0,В=1 и С =0
2)А=1,В=0,С=0
3)А=1,В=1,С=0
4)А=0,В=0,С=1
Семён - маляр, Николай - плотник, Илья - водопроводчик.
Program denuski;
var
a,N,c:integer;
begin
c:=1;
Write('Введите номер дня рождения ');
read(N);
for a:=2 to N do
c:=(c*2)+a;
write('Cумма подаренная на ');
write(N);
write(' день рождения ');
writeln(c,'$');
end.
Точно, конечно, ответить сложно. Но что-то мне подсказывает, что всё же олень. Олень.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10,0,20).Println;
a:= a.Where((v,i) -> i <> 4).ToArray;
a.Println;
end.