Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
110101=1*2^5+1*2^4+0*2^3+1*2^2+0*2^1+1*2^0=32+16+4+1=53
Const
N = 10;
var
A: array[1..N] of integer;
function Fun: integer;
var
i, M: integer;
begin
writeln('Введите число M=');
readln(M);
for i := 1 to N do
if A[i] = M then Fun := i;
end;
procedure CreateMassive;
var
i: integer;
begin
for i := 1 to N do
begin
A[i] := Random(199) - 100;
write(A[i],' ');
end;
Writeln;
end;
begin
CreateMassive;
Writeln(Fun);
end.
вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно
А) <span>0,00375*10^3 = 3,75
б) </span><span>1,234*10^(-2) = 0,01234
в) </span><span>5,737*10^(-2) = 0,05737</span>
В восьмиричной: 150.32
В шестнадцатиричной: 68.88