Var a,b,c:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.<span>
</span>
Program upr;
uses crt,GraphABC;
var pic:Picture; R,c:integer; b:string;
begin
SetWindOwSize(640,450);
write('Введите расстояние от предмета до зеркала(1-100):');
Readln(R);
pic:=Picture.Create('raskraska-shenok18.jpg');
pic.load('raskraska-shenok18.jpg');
Pic.Draw(320+R,100,200,290);
Pic.Draw(320-R,100,-200,290);
Setpencolor(clgreen);
Setpenwidth(5);
lINE(320,50,320,400);
LINE(50,400,590,400);
Setpenwidth (2);
Line(trunc(120+r/2),100,TRUNC(520-r/2),100);
END.
Var i, q, n : integer;
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
<span>end.</span>
Ответ:
Код к задаче: «Из слова ТЕСТИРОВАНИЕ сделать слово ТОВАР»
1.var s:string;
2.begin
3.s:='ТЕСТИРОВАНИЕ';
4.delete(s,1,2);
5.delete(s,5,2);
6.writeln(s);
7.readln
8.end.
Объяснение:
, где
N - мощность алфавита.
I - количество бит на символ.
109 =
.
I ≈7 бит (2⁷ = 128 бит, 2⁶ = 64 бит. Округляем в большую сторону).
Ответ: 7 бит.
