Дано трехзначное число. найти сумму кубов первой и второй его цифр
Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
s:=a1*a1*a1+a2*a2*a2;
Оцени ответ
Вход
Регистрация
Задать вопрос
Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
s:=a1*a1*a1+a2*a2*a2;