Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста!!
Сколько сможете

Ответ оставил Гость

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.