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
b = (2468/100)*10=(68(остаток))*10
a = 2468/1000 + 680 = 2 + 680
a = 682 b = 680
ответ: в
На уроке информатики,я научусь пользоваться компьютером,работать в программами.