В вашем условии максимальное число Н. То есть оно может быть как двухзначное так и десяти. Я сделаю для двухзначного:
var a,a1,a2,s:intger;
Read (a);
a1:= a div 10;
a2:= a mod 10;
sum:= a1+a2;
Writen (a1,sum);
Можно только в c:\windows\system32;
нажимаешь пуск потом компьютер и там пишешь в верху c:\windows\system32 и ты уже там.
Var n, s, a, p, v:integer;
begin
write('N = '); readln(n);
s:=n div (3*4*4);
a:=(n mod (3*4*4)) div (4*4);
p:=(n mod (4*4)) div 4;
v:=n mod 4;
writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);
end.
Пример:
N = 2061
s = 42 a = 2 p = 3 v = 1
#include <stdio.h>
int main()
{
int a,b,e,d;
a=192345; //Число
e=5; //Номер цифры
int c[1000000];
d=0;
while(a>0)
{
b=a%10;
d++;
c[d]=b;
a/=10;
}
for(int i=d;i>0;i--){
if((d-i+1)==e)printf("Цифра %d\n",c[i]); //Вывод искомой цифры
}
return 0;
}