<span>var s1,s2:real; i:integer;
begin
s1:=2500000;
s2:=2000000;
for i:=1 to 7 do
begin
s1:=s1+s1*5.5/100;
s2:=s2+s2*6/100;
end;
writeln('s1 = ',s1:0:2,' s2 = ',s2:0:2);
if s1>s2
then writeln('В первом банке денег будет больше на ',s1-s2:0:2)
else writeln('Во втором банке денег будет больше на ',s2-s1:0:2);
end<span>.
Результат:
</span><span>s1 = 3636697.90 s2 = 3007260.52
В первом банке денег будет больше на 629437.38</span></span>
<u>// PascalABC.NET 3.2, сборка 1473 от 08.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadLines('Pas.txt').ToArray;
var b:=a.Select(s->s.ToWords.JoinIntoString(' ')).ToArray;
b[0]:='НАЧАЛО '+b[0]; b[b.Length-1]+=' КОНЕЦ';
var f:=OpenAppend('Pas1.txt'); // после проверки заменить на Pas.txt
foreach var s in a do Writeln(f,s); // удалить, если используется Pas.txt
foreach var s in b do Writeln(f,s);
f.Close
end.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=6;
Type
ty=array[1..n,1..n] of integer;
procedure inic(var ar:ty);
Var
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
ar[i,j]:=0;
if not(odd(i)) then
begin
k:=k+2;
ar[i,k]:=1;
end;
end;
end;
uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.