program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
1) a)101101+1101101 = 10011010; b) 11010110-10101110 = 101000
471 в пятеричной системе счисления не может быть.
N = int(input("n = "))
for i in range(0,n+1):
print (i)
Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
Овввввввввввввввыллллллллллллллллларррррррррррррячдлвоаывпап