1410(10) = 2602(8)
1410(10) = 10110000010(2)
1410(10) = 582(16)
1 слово череп
2 юла
вот так !!!!!!!!!!!!!!
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
s:=s.Replace('ДЕТЕКТИВ','РОМАН'); s.Println
end.
<u>Примеры</u>
> ДЕТЕКТИВ БЕЗ ПОГОНИ - ЭТО НЕ ДЕТЕКТИВ
РОМАН БЕЗ ПОГОНИ - ЭТО НЕ РОМАН
> НЕ МОГУ ЗАСНУТЬ БЕЗ ДЕТЕКТИВА
НЕ МОГУ ЗАСНУТЬ БЕЗ РОМАНА
Const
t = 10;// количество чисел в массиве
var
a: array[1..t] of integer;
i, min, k, tmp, klv, z: integer;
b: boolean;
begin
for i := 1 to t do
a[i] := random(10) + 1; //Рандом чисел от 1 до 10
writeln('Массив:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
for i := 1 to t - 1 do
for k := i + 1 to t do
if a[i] > a[k] then
begin
tmp := a[k];
a[k] := a[i];
a[i] := tmp;
end;
writeln('После сортировки:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
klv := 0;
writeln('Введите число X:');
readln(z);
for i := 1 to t do
if a[i] = z then
begin
b := true;
inc(klv);
end;
if b then
begin
writeln('Число ', z, ' встречается ', klv, ' раз(а).');
end;
if b = false then writeln('Число ', z, ' не встречается.');
end.
X : real (вещественный);
Если это массив, то array [0,2..0,5]