|-----|
| |
| |
| ---|
| |
| |
| |
| |
| |
| |
* Финиш
Фляга в двух шагах направо от дуба, то есть навосток
Незнаю как тебе объяснить, сам до конца не понял как не целые числа переводить.
12/8 = 1 остаток останется 4
1/8 = 0 остаток останется 1
12 в 10-тичной = 14 в 8-ричной
Теперь переводим дробную часть 12.5 в 10-тичной системе в 8-ую систему:
0.5·8 = 4.0
0.510 = 0.48
как то так.... я не уверен, вроде правильно.
Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
Вроде так ну 76 там ответ
Const
n=5;
m=6;
var
i,j,s,z:integer;
a:array[1..n,1..m]of integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
readln(z);
i:=2;
while i<=n do
begin
for j:=1 to m do
if a[i,j]=z then s:=s+1;
i:=i+2;
end;
writeln('Ответ: ',s);
<span>end.</span>