345 в 8=3×8²+4×8¹+5×8¹=192+32+40=164 в 10
Надеюсь помогла))Успехов)
Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>
<span>Программа считает сумму последних трех цифр:
<em><u>Pascal:</u></em>
var n:longint;
sum,i:integer;
begin
repeat
write ('N = ');
readln (n):
until (n>=10000) and (n<=99999);
sum:=0;
for i:=1 to 3 do
begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln ('Summa: ',sum);
end.
<u><em>C++:</em></u>
#include <iostream></span>
<span>using namespace std;</span><span>
int main()</span><span>
{
</span><span>
int n,sum = 0;</span><span>
do</span><span>
{
</span><span>
cout <<"N = ";</span><span>
cin >>n;
}
</span><span>
while (n<10000 || n>99999);</span><span>
for (int I = 1; I<=3; I++)</span><span>
{
sum+=n%10;
n/=10;
}
</span><span> cout <<"Summa: " <<sum <<endl;</span><span>
return 0;</span><span>
}</span>
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
Ответ: 12 конфет осталось у Мудрунчика и Элзика.