Добрый день! решить в paskal. вводится натуральное число n. вычислить 2^1+2^2+2^n

Question

Информатика: Добрый день! решить в paskal. вводится натуральное число n. вычислить 2^1+2^2+2^n

wwwzelenruowzl2z · Accepted Answer

Var n,t,s,d,e:integer; begin writeln( ); repeat writeln( Введите сумму в рублях =1000 ); readln(n); until (n 0) and (n =1000); t:=n div 1000; n:=n-t*1000; s:=n div 100; n:=n-s*100; d:=n div 10; if d 1 then begin n:=n-d*10; e:=n; end; case t of      1:write( тысяча ); end; if s =0 then case s of      1:write( сто );      2:write( двести );      3:write( триста );      4:write( четыресто );      5:write( пятьсот );      6:write( шестьсот );      7:write( семьсот );      8:write( восемьсот );     ...

MOGZ ответил