Ответы и объяснения

2014-03-18T17:34:50+00:00
2.
var
i, x, rez: integer; // x - сумма, которую положили

begin
readln(x);
rez:=x;
for i:=1 to 4 to
 rez:=rez+rez*0,24;
write(rez);
end.

5.
var
n, k, i: integer;

begin
readln(n);
i:=1;
k:=1;
while i*2<>n do inc(k):
write(k);
end.

Если возникнут вопросы или будет ошибка в ходе работы программы, пиши в комментариях.