<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
Writeln('Справа налево: ',100*e+10*d+s);
Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.
<u>Пример</u>
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283
<span>Размер возможного изображения на экране будет вычисляться по формуле: S = V / (k * 4)
</span>
<span>Варианты разрешающей способности: 960x520; 640x480; 960x480
</span>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.
</u></em>P.S.S. А да S≥A*B, A*B и есть ответы
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
2 неверно т.к. <span>значения элементов массива не заданы в условии.
</span>4 неверно т.к. двумерный массив задается в pascalABC.NET
либо так: Number: array[1..20,1..20]<span>of real;
либо так: </span>Number: array[,]of real;
Ответ:1,3.
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".