<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>
Ответ:uses crt;
var i:integer;
r:real;
begin
for i:=10 to 22 do
writeln(i,' дюйм = ',i*2.54,' см');
end.
Объяснение:
Вид списка-Раскрывающийся
<span>После max ты поставил ":" (max:a; max:c;) а надо ":=" (max:=a; max:=c;)</span>
Можешь мини-коимикс зделать, думаю пойдет :)