Алг Число
нач
цел n,a,b,c,d
ввод n
a:=mod(n,10);
n:=div(n,10);
b:=mod(n,10);
n:=div(n,10);
c:=mod(n,10);
n:=div(n,10);
d:=n;
вывод "Сумма цифр числа = ", a+b+c+d;
вывод " Произведение цифр числа = ",a*b*c*d;
кон
ответ:3-сместиться на(-6 ,2)
Если мы кодировали в одну сторону, следовательно декодируем также, но только в обратную сторону.
а)друга ищи, а найдёшь - береги;
б)старый друг лучше новых двух.
If (a>=10) and (a<=99) then begin
writeln(a,' двузначное число'); writeln(' его квадрат=',sqr(a)); end
else writeln(а, ' не является двузначным');
Все, что добавил или изменил-отметил жирным