Var
p, r: real;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
read(f, p);
Close(f);
r := p - 0.1 * p;
r := r + 0.1 * r;
writeln(r:0:2)
end.
Тестовое решение:
9.90
<span>276 = 100010100
276 постоянно делишь на 2, и остаток записываешь с конца к началу
</span><span>276/<span>2=138 остаток 0
</span></span><span>138/<span>2=69 остаток 0
</span></span><span>69/<span>2=34 остаток 1
остаток 0
остаток 1
остаток 0
</span></span>остаток <span>0
</span>остаток <span>0
</span>остаток 1
Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам
Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.