Студенты-Программеры

1) Из 2ой в 16ую

А₂=101101

А₁₆=101101 – Это число делим по 4 символа, получится 10=2, а 1101=D

А₁₆=2D

2) Из 16ой в 10ую

А₁₆=2D

А₁₀=2*16¹+13*16⁰=45

А₁₀=45

1) из 2й в 8ую

А₈= 101101 – Это число делим по 3 символа и получится 101 = 5 и 101 =5, соответственно А₈=55

2) А₈=55

А₁₀=5*8¹+5*8⁰ = 45

А₁₀=45

1) Из 10ой в 2ую

А₁₀=45

А₂=?

А₂=101101

2) Из 2й в 10ую

А₁₀=1*2⁵+0*2⁴+1*2³+1*2²+0*2¹+1*2⁰= 45

А₁₀=45

pRogRam Zdn_8;
Var
txt:String[100];
i,k:Byte;

Begin
i:=0; k:=0;
Writeln(’–> Vash text:’);
Readln(txt);
For i:=1 To Length(txt) Do
If txt[i]=’ ‘ Then k:=k+1;
Writeln(’–> Znakov probela v stroke ‘,k);
Readln;
End.

const n=5;
type
sved=record
marka:string[10];
l_sil:integer;
P_mest:integer;
end;
var
F:File of sved;
avto:sved;
i,kol:integer;

Procedure marka;
begin
assign(F,’avto.dat’);
reset(f);
writeln(’vvedite marku’);
readln(marka);
kol:=0;
while not (eof(f)) do
begin
read(F,avto);
if avto.marka=marka then
kol:=kol+1;
end;
close(f);
end;

Procedure zapolnenie;
begin
assign(F,’avto.dat’);
rewrite(F);
for i:=1 to n do
begin
writeln(’vvedite marku avto’);
readln(avto.marka);
writeln(’vvedite kol-vo loshd sil’);
readln(avto.l_sil);
writeln(’vvedite kol-vo posad mest’);
readln(avto.p_mest);
writeln(F,avto);
end;
end;

begin
zapolnenie;marka;
writeln(kol-vo mashin zadannoi marki -,kol);
readln;
end.