Разработка искуственного интелекта зашла в тупик, в основном идут попытки имитации работы мозга на основе неиронных сетей
Var r,w,s:integer;
begin
writeln('Введите исходные данные:');
write('Величина вклада (руб.): ');
readln(r);
write('Ежемесячная величина дохода (руб) ');
readln(w);
s:=r+3*w;
write('Сумма вклада по окончании трех месяцев: ',s,' руб.');
s:=r+6*w;
write('Сумма вклада по окончании шести месяцев: ',s,' руб.');
s:=r+12*w;
write('Сумма вклада по окончании года: ',s,' руб.');
end.
350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3