—говорите, я лохматый? мне причёсываться лень? не лохматый, а рогатый! и зовут (олень)
Ответ дал: Гость
program bapehbe;
var
l, b, s : integer;
o : real;
begin
writeln (' skolko litrov varenya v tazy? ');
readln (l);
writeln (' kakaya emkost banok? ');
readln (b);
s: = l div b;
o: = l mod b;
writeln (' polnih banok_', s);
writeln (' litrov ostaloc_', o: 2: 2);
readln;
end.
Ответ дал: Гость
200: 2
100|0
50|0
25|0
12|1
6|0
3|0
1|1
0|1
200₁₀=11001000₂
489: 2
244|1
122|0
61|0
30|1
15|0
7|1
3|1
1|1
0|1
489₁₀=111101001₂
543: 2
271|1
135|1
67|1
33|1
16|1
8|0
4|0
2|0
1|0
0|1
543₁₀=1000011111₂
950: 2
475|0
237|1
118|1
59|0
29|1
14|1
7|0
3|1
1|1
0|1
950₁₀=1110110110
1025: 2
512|1
256|0
128|0
64|0
32|0
16|0
8|0
4|0
2|0
1|0
0|1
1025₁₀=10000000001₂
Ответ дал: Гость
vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Популярные вопросы