Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1*2⁶+1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+1*2⁰=
64+32+8+2+1=107
1*2⁶+0*2⁵+0*2⁴+0*2³+1*2²+1*2¹+0*2⁰=
64+4+2=70
а если число
var n,i,p: integer;
s: string;
begin
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
for i : = 1 to length(s) do
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
writeln(n);
p: =1;
for i: = 1 to n do
p: = p*i;
writeln(p);
end.
var a,c,l,w1,w2,w3 : longint;
readln(a,c);
w1: =0;
w2: =0;
w3: =0;
l: =a mod 10;
while a> 0 do
if a mod 10=c then w1: =w1+1;
if a mod 10=l then w2: =w2+1;
if a mod 2=0 then w3: =w3+1;
a: =a div 10;
end;
writeln(w1,' ',w2,' ',w3);
program d1; varx1,x2,y1,y2,d: real; beginread(x1); read(x2); read(y1); read(y2); //d: =sqrt(sqr(x2-x1)+sqr(y2-y1)); write('ðàñòîÿíèå ìåæäó òî÷êàìè: ',d); end.
Популярные вопросы