Если не ошибаюсь, это она. либо там выведется кол.во яблок каждому ученику.
program ...;
var
n, a, k, y : integer;
begin
readln (y, k);
a:= y mod k
y:= y div k
writeln (a, y);
end.
<em>Наиболее знакомый вам пример словесных моделей – это информация в учебниках. В учебнике по истории вы найдете примеры моделей исторических событий...</em>
№2)
56(8), 57(8), 60(8), 61(8), 62(8), 63(8), 64(8).
47(16), 48(16), 49(16), 4A(16), 4B(16), 4C(16), 4D(16)
№3)
10111(2)=1*2^4+0*2^3+1*2^2+1*2^1+1*2^0=16+4+2+1=23(10)
156(8)=1*8^2+5*8^1+6*8^0=64+40+6=110(10)
35A(16)=3*16^2+5*16^1+10*16^0=768+80+10=858(10)
№4)
делим последовательно на основание новой системы счисления, остатки от деления выписываем, начиная с конца.
образец:
584:2=292 ост 0
292:2=146 ---- 0
146:2= 73 ---- 0
73:2= 36 ---- 1
36:2= 18 ---- 0
18:2= 9 ---- 0
9:2= 4 ---- 1
4:2= 2 ---- 0
2:2= 1 ---- 0
1:2= 0 ---- 1
584(10)=1001001000(2)
584(10)=1110(8)
584(10)=248(16)
400(10)=110010000(2)
400(10)=620(8)
400(10)=190(16)
№5)
1 0 1 0 1
+ 1 1 0 1
--------------
1 0 0 0 1 0
1 0 1 0
+ 1 0 1 0
-------------
1 0 1 0 0
№6)
14(х)=9(10)
1*x^1+4*x^0=9
x+4=9
x=5
14(5)=9(10)
Var
S, X, a, b, R: Real;
C: String;
Begin
WriteLn('Chto budem vichislat');
ReadLn(C);
if C = 'O' then begin
WriteLn('Radius');
ReadLn(R);
S:= Pi*sqr(R);
end;
if C:= 'T' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
WriteLn('Vvedite 2 katet);
ReadLn(b);
S:= 1/2 * a * b;
end;
if C:= 'K' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
S:= sqr(a);
end;
WriteLn('Ploshad = ');
ReadLn(S);
end.