X=125
a= 125 div 100= 1
b= 125 mod 100 div 10= 25 div 10 = 2
c= 125 mod 10 =5
s= 1+2+5=8
x= 248
a= 248 div 100= 2
b= 248 mod 100 div 10= 48 div 10 = 4
c= 248 mod 10 =8
s= 2+4+8=14
x=789
a= 789 div 100= 7
b= 789 mod 100 div 10= 89 div 10 = 8
c= 789 mod 10 =9
s= 7+8+9=24
Компьютерный алфавит состоит из 128 букв, по моему
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.
Ответ:
var a = -2;
var b = 2;
var c = 3;
var mas = [a, b, c]; //или mas.push(a); mas.push(b); mas.push(c);
for(var i = 0; i < mas.length; i++)
{
if(mas[i] < 0)
{
Math.pow(mas[i], 2); //или mas[i]*mas[i];
//Вывод квадратов отрицательных чисел
}
else if(mas[i] > 0)
{
Math.pow(mas[i], 3); //или mas[i]*mas[i]*mas[i];
//Вывод кубов положительных чисел
}
}
Объяснение:
Массив использован для удобства, универсальности и компактности кода.
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.